From fb679c2d665a4a1fd39bd347b47fe0c596ad5ab1 Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Fri, 11 Jan 2002 08:20:41 +0000 Subject: [PATCH] *** empty log message *** original commit: 6a30f913b7bf4459461290048e5f8ad45cd02b67 --- .../private-yacc/input-file-parser.ss | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/parser-tools/private-yacc/input-file-parser.ss b/collects/parser-tools/private-yacc/input-file-parser.ss index 067438a..80063be 100644 --- a/collects/parser-tools/private-yacc/input-file-parser.ss +++ b/collects/parser-tools/private-yacc/input-file-parser.ss @@ -13,14 +13,14 @@ (let loop ((i 1)) (cond ((> i x) null) - (else - (if src-pos - `(,(datum->syntax-object act (string->symbol (format "$~a" i))) - ,(datum->syntax-object act (string->symbol (format "$~a-start-pos" i))) - ,(datum->syntax-object act (string->symbol (format "$~a-end-pos" i))) - ,@(loop (add1 i))) - `(,(datum->syntax-object act (string->symbol (format "$~a" i))) - ,@(loop (add1 i)))))))) + (src-pos + `(,(datum->syntax-object act (string->symbol (format "$~a" i))) + ,(datum->syntax-object act (string->symbol (format "$~a-start-pos" i))) + ,(datum->syntax-object act (string->symbol (format "$~a-end-pos" i))) + ,@(loop (add1 i)))) + (else + `(,(datum->syntax-object act (string->symbol (format "$~a" i))) + ,@(loop (add1 i))))))) ;; nullable: production list * int -> non-term set ;; determines which non-terminals can derive epsilon