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-
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
2 matches
Mail list logo