diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-06 22:02:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-06 22:02:12 +0000 |
| commit | baa2d50e5a11158ac998dfc0f3c8d5293666f77a (patch) | |
| tree | fdd18c9db3f95045d14bf01200d42de63ac3a93f /src/interp/preparse.lisp | |
| parent | 3ca02c13b9f1cd5026ce2beec02b812a5e55baef (diff) | |
| download | open-axiom-baa2d50e5a11158ac998dfc0f3c8d5293666f77a.tar.gz | |
* interp/lexing.boot (indentationLocation): New.
* interp/macros.lisp (expand-tabs): Use it in lieu of NDENT-POS.
* interp/preparse.lisp (PREPARSE1): Likewise.
Diffstat (limited to 'src/interp/preparse.lisp')
| -rw-r--r-- | src/interp/preparse.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 0fd7bc3a..120656b1 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -133,7 +133,7 @@ (INSTRING) ((= N COMSYM) (setq A (subseq A 0 N)) (GO NOCOMS)) ; discard trailing comment ((= N NCOMSYM) - (setq SLOC (INDENT-POS A)) + (setq SLOC (|indentationLocation| A)) (COND ((= SLOC N) (COND ((AND NCOMBLOCK (NOT (= N (CAR NCOMBLOCK)))) @@ -150,7 +150,7 @@ ((= N CPARSYM) (setq PCOUNT (1- PCOUNT)))) (setq I (1+ N)) (GO STRLOOP) - NOCOMS (setq SLOC (INDENT-POS A)) + NOCOMS (setq SLOC (|indentationLocation| A)) (setq A (DROPTRAILINGBLANKS A)) (cond ((NULL SLOC) (setq SLOC PSLOC) (GO READLOOP))) (cond ((EQ (ELT A (MAXINDEX A)) #\_) |