diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/parse.boot | 8 |
2 files changed, 4 insertions, 8 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 9bd01f6a..716a15e7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2008-11-30 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/parse.boot (parseEquivalence): Remove. + +2008-11-30 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/define.boot (disallowNiAttribute): Remove. (compDefineFunctor1): Don't use it anymore. (compCategoryItem): Filter out nil attributes here. diff --git a/src/interp/parse.boot b/src/interp/parse.boot index 74677690..f4d40583 100644 --- a/src/interp/parse.boot +++ b/src/interp/parse.boot @@ -327,13 +327,6 @@ parseOr t == parseIf ["IF",y,parseOr ["or",:rest u],"true"] parseIf ["IF",x,"true",parseOr ["or",:rest u]] - -parseEquivalence: %ParseForm -> %Form -parseEquivalence t == - t isnt ["eqv",a,b] => systemErrorHere "parseEquivalence" - parseIf ["IF",a,b,parseIf ["IF",b,:'(false true)]] - - parseExclusiveOr: %ParseForm -> %Form parseExclusiveOr t == t isnt ["xor",a,b] => systemErrorHere "parseExclusiveOr" @@ -535,7 +528,6 @@ for x in [["<=", :"parseLessEqual"],_ ["CATEGORY", :"parseCategory"],_ ["construct", :"parseConstruct"],_ ["DEF", :"parseDEF"],_ - ["eqv", :"parseEquivalence"],_ ["exit", :"parseExit"],_ ["has", :"parseHas"],_ ["IF", :"parseIf"],_ |