From 9f4f7670d171f9e4b7482895d1ee84f8b6040de0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 26 Dec 2007 12:02:13 +0000
Subject: [PATCH] fix exn-handler test

svn: r8125
---
 collects/tests/mzscheme/basic.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/basic.ss b/collects/tests/mzscheme/basic.ss
index e027a0b771..19529741e4 100644
--- a/collects/tests/mzscheme/basic.ss
+++ b/collects/tests/mzscheme/basic.ss
@@ -1433,13 +1433,14 @@
             (vector exn))
           (lambda ()
             (raise 'except))))))
-(test '(except) 'escape
+(test '#((except)) 'escape
       (with-handlers ([void (lambda (x) x)])
         (values
          (call-with-exception-handler
           (lambda (exn)
             (vector exn))
           (lambda ()
+            ;; (Used to replace enclosing, but not any more)
             (call-with-exception-handler
              (lambda (exn)
                (list exn))