diff options
author | dos-reis <gdr@axiomatics.org> | 2012-06-04 01:38:56 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-06-04 01:38:56 +0000 |
commit | 9093e140828074f9f86e9a88cb705f86ea087af7 (patch) | |
tree | 7af466dae4d12ba53d4041d0668d49410ce9a171 /src/interp/debug.lisp | |
parent | 3e1313d951e807417a344c5fda677b98dcb462c8 (diff) | |
download | open-axiom-9093e140828074f9f86e9a88cb705f86ea087af7.tar.gz |
* interp/spad.lisp (SPAD): Adjust.
* interp/spad-parser.boot: Add a reader parameter to all parsing
functions. Adjust callers.
* interp/newaux.lisp: Adjust form of specialized parsers.
* interp/lexing.boot: Add a reader parameter to all lexing
functions. Adjust Callers.
* interp/io.boot (%Reader): Add source line field.
* interp/debug.lisp: Adjust IO and lexer calls.
* interp/util.lisp (string2SpadTree): Remove as unused.
Diffstat (limited to 'src/interp/debug.lisp')
-rw-r--r-- | src/interp/debug.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index 5e038fc5..e0231e65 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -1126,14 +1126,14 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) ; **** 5. BOOT Error Handling -(defun SPAD_SYNTAX_ERROR (&rest byebye) +(defun SPAD_SYNTAX_ERROR (rd) "Print syntax error indication, underline character, scrub line." (BUMPERRORCOUNT '|syntax|) (COND ((AND (EQ DEBUGMODE 'YES) (NOT(CONSOLEINPUTP IN-STREAM))) (SPAD_LONG_ERROR)) ((SPAD_SHORT_ERROR))) - (|ioClear!|) - (throw 'spad_reader nil)) + (|ioClear!| rd) + (throw |$SpadReaderTag| nil)) (defun SPAD_LONG_ERROR () (SPAD_ERROR_LOC SPADERRORSTREAM) |