diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-18 01:27:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-18 01:27:42 +0000 |
commit | 630b6f25ff2900a31326141b67a187a685e7e9b8 (patch) | |
tree | f87d21c2387137ff8500e0e0ede9f2dbcabac64a /src/interp/parsing.lisp | |
parent | 16111656afaa94a382d61de6c3ec37a9bdca05ef (diff) | |
download | open-axiom-630b6f25ff2900a31326141b67a187a685e7e9b8.tar.gz |
* interp/spad-parser.boot (parseSegmentTail): Tidy.
* interp/postpar.boot (postSEGMENT): Remove.
(postTupleCollect): Likewise.
(postBootNotEqual): Likewise.
* interp/parsing.lisp (CHAR-EQ): Remove.
(CHAR-NE): Likewise.
(getToken): Likewise.
* interp/newaux.lisp: Remove "^=" as legitimate operator.
* interp/lexing.boot (geToken): Rename from getSpadToken.
* interp/i-intern.boot (mkAtree3): Check for new form of universal
segment.
* interp/parse.boot (parseSegment): Likewise.
* algebra/seg.spad.pamphlet (Segment): Use .. instead of SEGMENT.
(SegmentFunctions2): Likewise.
(UniversalSegment): Likewise.
Diffstat (limited to 'src/interp/parsing.lisp')
-rw-r--r-- | src/interp/parsing.lisp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/interp/parsing.lisp b/src/interp/parsing.lisp index ce5a2826..565fce93 100644 --- a/src/interp/parsing.lisp +++ b/src/interp/parsing.lisp @@ -602,10 +602,6 @@ the stack, then stack a NIL. Return the value of prod." ;; auxiliary functions needed by the parser -(defun char-eq (x y) (char= (character x) (character y))) - -(defun char-ne (x y) (char/= (character x) (character y))) - (Defun FLOATEXPID (X &aux S) (if (AND (IDENTP X) (char= (char-upcase (ELT (SETQ S (PNAME X)) 0)) #\E) (> (LENGTH S) 1) @@ -614,8 +610,6 @@ the stack, then stack a NIL. Return the value of prod." (READ-FROM-STRING S t nil :start 1) NIL)) -(defun |getToken| (x) (if (EQCAR x '|elt|) (third x) x)) - (defun |dollarTran| (dom rand) (let ((eltWord (if |$InteractiveMode| '|$elt| '|elt|))) (if (and (not (atom rand)) (cdr rand)) |