diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-17 14:41:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-17 14:41:00 +0000 |
| commit | 16111656afaa94a382d61de6c3ec37a9bdca05ef (patch) | |
| tree | 50b54aa78118b0e723246f6acc034da705f53d35 /src/interp/parsing.lisp | |
| parent | f699415cce3f73d0f2b63ecb3b1fdc7084ba4cea (diff) | |
| download | open-axiom-16111656afaa94a382d61de6c3ec37a9bdca05ef.tar.gz | |
* lisp/core.lisp.in: Add ref and deref to support references.
* interp/sys-constants.boot ($OperatorFunctionNames): Add "by" and
"..".
* interp/spad.lisp: Tidy.
* interp/spad-parser.boot: New parsers.
* interp/preparse.lisp: Remove dead codes.
* interp/parsing.lisp (MATCH-ADVANCE-KEYWORD): Remove.
* interp/parse.boot (doParseCategory): Rename from parseCategory.
* interp/newaux.lisp: Tidy.
* interp/lexing.boot (getSpadToken): New.
(Keywords): Remove 'when'.
(matchKeywordNext): New.
(matchSpecial): Likewise.
(matchAdvanceSpecial): Likewise.
(matchAdvanceGlyph): Likewise.
* interp/fnewmeta.lisp: Move variable definitions to preparse.lisp.
Remove Lisp based parsers.
Remove file.
* interp/c-doc.boot (recordAttributeDocumentation): Fix thinko.
* interp/bootlex.lisp (GET-BOOT-TOKEN): Remove.
* interp/Makefile.in: Adjust dependencies.
* boot/parser.boot (bpChar): New.
(bpPattern): Allow character constants.
Diffstat (limited to 'src/interp/parsing.lisp')
| -rw-r--r-- | src/interp/parsing.lisp | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/interp/parsing.lisp b/src/interp/parsing.lisp index 668bf1e3..ce5a2826 100644 --- a/src/interp/parsing.lisp +++ b/src/interp/parsing.lisp @@ -295,10 +295,6 @@ the stack, then stack a NIL. Return the value of prod." ; (3) Line handling: Next Line, Print Next Line ; (X) Random Stuff -(defun match-advance-keyword (str) - (and (|matchToken| (|currentToken|) 'keyword (intern str)) - (action (|advanceToken|)))) - (defun match-advance-special (str) (and (|matchToken| (|currentToken|) 'special-char (character str)) (action (|advanceToken|)))) |