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

fix a `(with-handlers ([exn? ....]) ....)'

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-09 09:05:42 -06:00
parent 2d06f4247f
commit 306e091f35
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/eli-tester.rkt
View File

@ -7,7 +7,7 @@
(syntax-case stx () (syntax-case stx ()
[(_ expr) [(_ expr)
;; catch syntax errors while expanding, turn them into runtime errors ;; catch syntax errors while expanding, turn them into runtime errors
(with-handlers ([exn? (lambda (e) #`(list 'error #,(exn-message e) #f))]) (with-handlers ([exn:fail:syntax? (lambda (e) #`(list 'error #,(exn-message e) #f))])
(define-values (_ opaque) (define-values (_ opaque)
(syntax-local-expand-expression (syntax-local-expand-expression
#'(with-handlers #'(with-handlers