fix exn-handler test

svn: r8125
2007-12-26 12:02:13 +00:00 · 2007-12-26 12:02:13 +00:00 · 9f4f7670d1
commit 9f4f7670d1
parent 019ead4356
1 changed files with 2 additions and 1 deletions
--- 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))