@@ -20,8 +20,8 @@ ((_ (req-identifier) body ...) (let ((key (make-closure-key))) (body-as-closure-key (req-identifier key) body ...))) - ((_ (req-identifier key-identifier) body ...) - (let ((key-identifier (make-closure-key))) + ((_ (req-identifier key-expr) body ...) + (let ((key-identifier key-expr)) (add-closure! #:key key-identifier (lambda (req-identifier) ;; first cleanup after itself closures.scm @@ -25,6 +25,19 @@ (test-equal? "closures are usable only once" (num-closures-in-memory) 0) + + ;; now test manual closure keys + (test-equal? "just made a manual key'd closure" + (begin (set! clos-key "some-key-i-made-up") + (body-as-closure-key (req clos-key) "cool") + (num-closures-in-memory)) + 1) + (test-equal? "call the manual closure" + (call-closure clos-key 'dummy-req) + "cool") + (test-equal? "make sure manual closures clean up too" + (num-closures-in-memory) + 0) ))) unit-test.ss 599d5bb50cc1faeba6632ac884a4f22b61166b12 Rob Hunter rob.hunter@gmail.com http://github.com/vegashacker/leftparen/commit/9559b2d696afb934aa7c2d69818a72259777ed25 9559b2d696afb934aa7c2d69818a72259777ed25 2009-05-13T14:46:13-07:00 2009-05-13T14:46:13-07:00 found bug where we were ignoring manually given closure keys...fixed and added corresponding unit test f7549731a9dddfb0aeabd6eafd801e3d44e4e7a0 Rob Hunter rob.hunter@gmail.com