diff options
author | dos-reis <gdr@axiomatics.org> | 2011-08-22 23:24:10 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-08-22 23:24:10 +0000 |
commit | d63ce4731d81c50eb205524d7b7d58681d20fa4a (patch) | |
tree | 4689910112d637852ed884f35c9b6695e6379231 /src/interp/preparse.lisp | |
parent | d8ce72f6274af4970ca31fc215107bd30467e565 (diff) | |
download | open-axiom-d63ce4731d81c50eb205524d7b7d58681d20fa4a.tar.gz |
* interp/metalex.lisp (LINE-HANDLER, NEXT-LINE, XCAPE): Remove.
(XTOKENREADER, GET-TOKEN, NEXT-META-LINE): Likewise.
(META_ERROR_HANDLER, META-SYNTAX-ERROR, META-META-ERROR-HANLER):
Likewise.
* interp/debug.lisp: Do not set /XCAPE property.
* interp/bootlex.lisp (INIT-BOOT/SPAD-READER): Do not set
XTOKENRADER, LINE-HANDLER, META_ERROR_HANDLER.
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 dcab95f1..47acccb4 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -168,7 +168,7 @@ NOCOMS (setq SLOC (INDENT-POS A)) (setq A (DROPTRAILINGBLANKS A)) (cond ((NULL SLOC) (setq SLOC PSLOC) (GO READLOOP))) - (cond ((EQ (ELT A (MAXINDEX A)) XCAPE) + (cond ((EQ (ELT A (MAXINDEX A)) #\_) (setq CONTINUE T a (subseq A (MAXINDEX A)))) ((setq CONTINUE NIL))) (if (and (null LINES) (= SLOC 0)) ;;test for skipping constructors @@ -346,7 +346,7 @@ (format out-stream "~&;~A~%" X))) (setq $EchoLineStack ())) -(defun ESCAPED (STR N) (and (> N 0) (EQ (CHAR STR (1- N)) XCAPE))) +(defun ESCAPED (STR N) (and (> N 0) (EQ (CHAR STR (1- N)) #\_))) (defun atEndOfUnit (X) (NULL (STRINGP X)) ) |