diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-17 23:40:52 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-17 23:40:52 +0000 |
commit | ec55510a6ade5e3430f7000f464d4a7e205ed19f (patch) | |
tree | 8062cb11661f1769ee3ef7d0d741f98523301899 /src/interp/newaux.lisp | |
parent | b04728250962a67b923ed71237f6145e3d594255 (diff) | |
download | open-axiom-ec55510a6ade5e3430f7000f464d4a7e205ed19f.tar.gz |
* interp/fnewmeta.lisp: Remove out-of-date META grammar.
(PARSE-LabelExpr): Remove.
* interp/newaux.lisp: Remove Nud property for << and >>.
Diffstat (limited to 'src/interp/newaux.lisp')
-rw-r--r-- | src/interp/newaux.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp index ddf763b1..ed9b0030 100644 --- a/src/interp/newaux.lisp +++ b/src/interp/newaux.lisp @@ -112,8 +112,10 @@ (<= 400 400) (>= 400 400) (= 400 400) (^= 400 400) (~= 400 400) - (|in| 400 400) (|case| 400 400) - (|add| 400 120) (|with| 2000 400 (|PARSE-InfixWith|)) + (|in| 400 400) + (|case| 400 400) + (|add| 400 120) + (|with| 2000 400 (|PARSE-InfixWith|)) (|has| 400 400) (|where| 121 104) ; must be 121 for SPAD, 126 for boot--> nboot (|when| 112 190) @@ -146,8 +148,6 @@ (\# 999 998) (\! 1002 1001) (\' 999 999 (|PARSE-Data|)) - (<< 122 120 (|PARSE-LabelExpr|)) - (>>) (-> 1001 1002) (\: 194 195) (|not| 260 259 NIL) |