From 486e90509486b53985061ac273c562a70b1364d6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 14 Mar 2004 19:35:43 +0000
Subject: [PATCH] .

original commit: cf832a34db3aa0ceebc32c3051abcbe206aa6e16
---
 collects/parser-tools/lex.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss
index 5e9fab3..ff3fd86 100644
--- 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