.

original commit: cf832a34db3aa0ceebc32c3051abcbe206aa6e16
20 years ago · 486e905094
parent 17bc737220
commit 486e905094
1 changed files with 2 additions and 2 deletions
--- a/collects/parser-tools/lex.ss
+++ b/collects/parser-tools/lex.ss
@ -167,9 +167,9 @@
                    ((eq? 'special first-char)
                     (let* ((comment? #f)
                            (error? #f)
-                            (spec (with-handlers ((exn:special-comment?
+                            (spec (with-handlers ((special-comment?
                                                   (lambda (x) (set! comment? #t)))
-                                                  (not-break-exn?
+                                                  (exn:fail?
                                                   (lambda (ex) (set! error? #t) ex)))
                                    (read-char-or-special ip))))
                       (cond