From ea7f084922444f4686a96e30677cb8129557ad4c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 11 Dec 2007 11:54:58 +0000
Subject: [PATCH] fix else binding after its destroyed

svn: r7953

original commit: 41133f53415621001afc19915b46fe03e8bb88f0
---
 collects/tests/mzscheme/macrolib.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/tests/mzscheme/macrolib.ss b/collects/tests/mzscheme/macrolib.ss
index 5e8f284..67cabab 100644
--- 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)