diff options
Diffstat (limited to 'src/interp/preparse.lisp')
| -rw-r--r-- | src/interp/preparse.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 2b92469e..48a44d41 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -158,7 +158,7 @@ (SETQ A "")) ('T (PUSH (STRCONC (GETFULLSTR N " ") (SUBSTRING A N ())) $LINELIST) - (SETQ $INDEX (SUB1 $INDEX)) + (SETQ $INDEX (1- $INDEX)) (SETQ A (SUBSEQ A 0 N)))) (GO NOCOMS)) ((= N OPARSYM) (setq PCOUNT (1+ PCOUNT))) |