diff options
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 2d42c1fa..d1c626e0 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1454,12 +1454,6 @@ compExclusiveOr(x,m,e) == bT := comp(b,$EmptyMode,e) or return nil compResolveCall("xor",[aT,bT],m,bT.env) -compGreaterThan: (%Form, %Mode, %Env) -> %Maybe %Triple -compGreaterThan(x,m,e) == - x isnt [">", a, b] => nil - $normalizeTree and resolve(m,$Boolean) = $Boolean => comp(["<",b,a],m,e) - compForm(x,m,e) - --% Case compCase: (%Form,%Mode,%Env) -> %Maybe %Triple compCase1: (%Form,%Mode,%Env) -> %Maybe %Triple @@ -2450,7 +2444,6 @@ for x in [["|", :"compSuchthat"],_ ["@", :"compAtSign"],_ [":", :"compColon"],_ ["::", :"compCoerce"],_ - [">", :"compGreaterThan"],_ ["QUOTE", :"compQuote"],_ ["add", :"compAdd"],_ ["CAPSULE", :"compCapsule"],_ |