Re: [racket] Some problem with hash-update!

2014-09-13 Thread Evgeny Odegov
Oh, I'm wrong. The last code is not equivalent to initial. The equivalent code has this problem: (define result (make-hash)) (define big-list (list)) (define (callback dwTextID lpszInfoText lpvUser) (if (equal? lpszInfoText "") (set! big-list (append big-list (list dwTextID))) (hash-

[racket] Some problem with hash-update!

2014-09-13 Thread Evgeny Odegov
Hi, all! I have a problem with the code below: (define result (make-hash)) (define (callback dwTextID lpszInfoText lpvUser) (hash-update! result lpszInfoText (lambda (id-lst) (define v (list dwTextID)) (if id-lst (append id-lst