From feeea7c20f944c648e38b66cbf79a5327e53d49e Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Thu, 24 Jan 2002 23:47:41 +0000 Subject: [PATCH] *** empty log message *** original commit: 2b9825793503ab18bb21fa594c6ff9cf2e0e21cd --- collects/parser-tools/examples/calc.ss | 2 +- collects/parser-tools/private-yacc/parser-builder.ss | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/parser-tools/examples/calc.ss b/collects/parser-tools/examples/calc.ss index 22af8fc..ae59f36 100644 --- a/collects/parser-tools/examples/calc.ss +++ b/collects/parser-tools/examples/calc.ss @@ -79,4 +79,4 @@ (define (calc ip) ;; Make the lex-buffer (let ((lb (make-lex-buf ip))) - (calcp (lambda () (calcl lb))))) \ No newline at end of file + (calcp (lambda () (calcl lb))))) diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.ss index 545ecb6..7a3b5d8 100644 --- a/collects/parser-tools/private-yacc/parser-builder.ss +++ b/collects/parser-tools/private-yacc/parser-builder.ss @@ -175,8 +175,8 @@ ,(if src-pos `(err #t (token-name tok) (token-value tok) (cadr ip) (caddr ip)) `(err #t (token-name tok) (token-value tok))) - (raise-read-error (format "parser: got token of unknown type ~a" (token-name tok))))))))) - + (raise-read-error (format "parser: got token of unknown type ~a" (token-name tok)) + #f #f #f #f #f))))))) (lambda (get-token) (let parsing-loop ((stack (list 0)) (ip (get-token)))