iCVS: ----------------------------------------------------------------------

original commit: 079cdb6c431cab3617150ebfec7c94b4b896e212
22 years ago · 0a5d3bd5f1
parent 8403dd10d2
commit 0a5d3bd5f1
1 changed files with 2 additions and 2 deletions
--- a/collects/parser-tools/yacc.ss
+++ b/collects/parser-tools/yacc.ss
@ -282,8 +282,8 @@
                                   token-index)
                      (begin
                        (if src-pos
-                            (err #t (token-name tok) (token-value tok) (cadr ip) (caddr ip))
-                            (err #t (token-name tok) (token-value tok)))
+                            (err #f (token-name tok) (token-value tok) (cadr ip) (caddr ip))
+                            (err #f (token-name tok) (token-value tok)))
                        (raise-read-error (format "parser: got token of unknown type ~a" (token-name tok))
                                          #f #f #f #f #f)))))))
      (lambda (get-token)