diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-06-11 19:30:07 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-06-11 19:30:07 +0000 |
| commit | fb75980589a0611aee3b8e5e25408725a5c5a531 (patch) | |
| tree | 561a8a25ed1178792b7f1112ac1276dc2684c774 /src/interp/metalex.lisp | |
| parent | 9d0b4c5d09c2d07feb863f500172bcc8f6f17adf (diff) | |
| download | open-axiom-fb75980589a0611aee3b8e5e25408725a5c5a531.tar.gz | |
* interp/newaux.lisp: Remove digraphs '(<' and '>) as alternate
spelling for '{' and '}'.
* interp/fnewmeta.lisp (|PARSE-Primary1|): Use PARSE-Data for
quoted forms.
(|PARSE-Sexpr1|): Tidy.
* interp/parse.boot (washOperatorName): New. Issue deprecation
diagnostics for string syntax for operator names in signatures.
(parseHas): Use it.
(transCategoryItem): Likewise.
* interp/metalex.lisp (advance-token): Likewise.
* algebra/boolean.spad.pamphlet: Tidy.
Diffstat (limited to 'src/interp/metalex.lisp')
| -rw-r--r-- | src/interp/metalex.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/metalex.lisp b/src/interp/metalex.lisp index a98d681f..690c6243 100644 --- a/src/interp/metalex.lisp +++ b/src/interp/metalex.lisp @@ -356,10 +356,9 @@ NonBlank is true if the token is not preceded by a blank." (try-get-token Next-Token))) (defun advance-token () - (current-token) ;don't know why this is needed "Makes the next token be the current token." (case Valid-Tokens - (0 (try-get-token (Current-Token))) + (0 (try-get-token Current-Token)) (1 (decf Valid-Tokens) (setq Prior-Token (copy-token Current-Token)) (try-get-token Current-Token)) |