From 0a5d3bd5f16b032c3431e240dc8500accc439f4d Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Sun, 27 Oct 2002 03:22:25 +0000 Subject: [PATCH] iCVS: ---------------------------------------------------------------------- original commit: 079cdb6c431cab3617150ebfec7c94b4b896e212 --- collects/parser-tools/yacc.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/yacc.ss b/collects/parser-tools/yacc.ss index 56f0283..a54223c 100644 --- 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)