diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/preparse.lisp | 8 | ||||
| -rw-r--r-- | src/interp/spad-parser.boot | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 16eace23..8af7c8b3 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -87,7 +87,7 @@ (|preparseEcho| (|readerLines| rd)) (COND ((NULL LINES) (RETURN NIL)) (NCOMBLOCK - (|findCommentBlock| NIL NUMS LOCS NCOMBLOCK NIL))) + (|findCommentBlock| NIL NUMS LOCS NCOMBLOCK))) (RETURN (|pairList| (|reverse!| NUMS) (|parsePiles| (|reverse!| LOCS) (|reverse!| LINES)))))) (cond ((and (NULL LINES) (> (LENGTH A) 0) (EQ (CHAR A 0) #\) )) @@ -123,7 +123,7 @@ (COND ((= SLOC N) (COND ((AND NCOMBLOCK (NOT (= N (CAR NCOMBLOCK)))) - (|findCommentBlock| NUM NUMS LOCS NCOMBLOCK (|readerLines| rd)) + (|findCommentBlock| NUM NUMS LOCS NCOMBLOCK) (SETQ NCOMBLOCK NIL))) (SETQ NCOMBLOCK (CONS N (CONS A (IFCDR NCOMBLOCK)))) (SETQ A "")) @@ -158,7 +158,7 @@ (setq $skipme nil)))) (when (and LINES (EQL SLOC 0)) (IF (AND NCOMBLOCK (NOT (ZEROP (CAR NCOMBLOCK)))) - (|findCommentBlock| NUM NUMS LOCS NCOMBLOCK (|readerLines| rd))) + (|findCommentBlock| NUM NUMS LOCS NCOMBLOCK)) (RETURN (|pairList| (|reverse!| NUMS) (|parsePiles| (|reverse!| LOCS) (|reverse!| LINES))))) (cond ((> PARENLEV 0) @@ -166,7 +166,7 @@ (setq SLOC PSLOC) (GO REREAD))) (COND (NCOMBLOCK - (|findCommentBlock| NUM NUMS LOCS NCOMBLOCK (|readerLines| rd)) + (|findCommentBlock| NUM NUMS LOCS NCOMBLOCK) (setq NCOMBLOCK ()))) (PUSH SLOC LOCS) REREAD (|preparseEcho| (|readerLines| rd)) diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index bab426f3..b33e5ef5 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -106,7 +106,7 @@ skipToEndif rs == ++ `oldnums' is the list of line numbers of previous lines ++ `oldlocs' is the list of previous indentation locations ++ `ncblock' is the current comment block -findCommentBlock(n,oldnums,oldlocs,ncblock,lines) == +findCommentBlock(n,oldnums,oldlocs,ncblock) == x := [nc,:block] := ncblock nc = 0 => [n - 1,:reverse block] |