fix else binding after its destroyed

svn: r7953 original commit: 41133f53415621001afc19915b46fe03e8bb88f0
2007-12-11 11:54:58 +00:00 · 2007-12-11 11:54:58 +00:00 · ea7f084922
commit ea7f084922
parent 07cb261b6c
1 changed files with 2 additions and 0 deletions
--- a/collects/tests/mzscheme/macrolib.ss
+++ b/collects/tests/mzscheme/macrolib.ss
@ -92,6 +92,8 @@
       (let ([=> 12]) (evcase 3 [3 => 17]))
       (let ([=> 17]) (evcase 3 [3 =>]))))

+(require (only-in scheme/base else)) ; fix `else'
+
 (define (opt-lam-test exp expected)
   (let ([got (eval exp)])
     (unless (equal? got expected)