suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix exn-handler test

Browse Source 
svn: r8125
This commit is contained in:
Matthew Flatt 2007-12-26 12:02:13 +00:00
parent 019ead4356
commit 9f4f7670d1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/mzscheme/basic.ss
View File

@ -1433,13 +1433,14 @@
(vector exn)) (vector exn))
(lambda () (lambda ()
(raise 'except)))))) (raise 'except))))))
(test '(except) 'escape (test '#((except)) 'escape
(with-handlers ([void (lambda (x) x)]) (with-handlers ([void (lambda (x) x)])
(values (values
(call-with-exception-handler (call-with-exception-handler
(lambda (exn) (lambda (exn)
(vector exn)) (vector exn))
(lambda () (lambda ()
;; (Used to replace enclosing, but not any more)
(call-with-exception-handler (call-with-exception-handler
(lambda (exn) (lambda (exn)
(list exn)) (list exn))