diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-12-01 04:32:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-12-01 04:32:04 +0000 |
| commit | c3b50d06f5f3be949d42619a014e4744853db68a (patch) | |
| tree | 1ba50ddac95dd7a23beefcfd4f00e530d8bd997f /src/interp | |
| parent | e39cccd522e46e26e2e96ad6e130619dc98f8cce (diff) | |
| download | open-axiom-c3b50d06f5f3be949d42619a014e4744853db68a.tar.gz | |
* interp/parse.boot (parseEquivalence): Remove.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/parse.boot | 8 |
1 files changed, 0 insertions, 8 deletions
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"],_ |