ffi/unsafe/alloc: releaser should be able to return a value

2012-02-16 20:36:40 -07:00 · 2012-02-16 20:36:40 -07:00 · b93eaa19f4
commit b93eaa19f4
parent f461d9f67d
1 changed files with 5 additions and 4 deletions
--- a/collects/ffi/unsafe/alloc.rkt
+++ b/collects/ffi/unsafe/alloc.rkt
@ -51,10 +51,11 @@
     (dynamic-wind
         start-atomic
         (lambda ()
+	   (begin0
 	    (apply proc args)
 	    (let ([v (get-arg args)])
 	      (let ([ds (hash-ref allocated v null)])
-               (hash-set! allocated v (cons d ds)))))
+		(hash-set! allocated v (cons d ds))))))
         end-atomic))
   proc))