aboutsummaryrefslogtreecommitdiff
path: root/src/interp/newaux.lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-10-18 01:27:42 +0000
committerdos-reis <gdr@axiomatics.org>2011-10-18 01:27:42 +0000
commit630b6f25ff2900a31326141b67a187a685e7e9b8 (patch)
treef87d21c2387137ff8500e0e0ede9f2dbcabac64a /src/interp/newaux.lisp
parent16111656afaa94a382d61de6c3ec37a9bdca05ef (diff)
downloadopen-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/newaux.lisp')
-rw-r--r--src/interp/newaux.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp
index 3d668367..3e85eb7d 100644
--- a/src/interp/newaux.lisp
+++ b/src/interp/newaux.lisp
@@ -109,7 +109,7 @@
(< 400 400) (> 400 400)
(<< 400 400) (>> 400 400)
(<= 400 400) (>= 400 400)
- (= 400 400) (^= 400 400)
+ (= 400 400)
(~= 400 400)
(|in| 400 400)
(|case| 400 400)