diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-10 04:56:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-10 04:56:00 +0000 |
| commit | 8fc10cb2dc9d313aa8c0c9c149f2d559d86d20d2 (patch) | |
| tree | 699f0865d9a28d8b721e77285880167cfabf9000 /src/interp/preparse.lisp | |
| parent | a898c07228fbff5c3aa8653a52276ca9d0514158 (diff) | |
| download | open-axiom-8fc10cb2dc9d313aa8c0c9c149f2d559d86d20d2.tar.gz | |
* interp/io.boot (carriageRetChar?): New.
(trimCarriageReturn): Likewise.
(expandLeadingTabs): Likewise.
* interp/preparse.lisp: Use it.
* interp/incl.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
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 331aa3e3..0d9e7ff1 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -181,7 +181,7 @@ (PROG (LINE IND) (SETQ LINE (if $LINELIST (pop $LINELIST) - (expand-tabs (|readLine| in-stream)))) + (|expandLeadingTabs| (|readLine| in-stream)))) (setq |$preparseLastLine| LINE) (and (stringp line) (incf $INDEX)) (COND |