diff options
author | dos-reis <gdr@axiomatics.org> | 2008-07-20 16:20:03 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-07-20 16:20:03 +0000 |
commit | ccbb46defe28a8aa9e554d25d1542c8353a4cf4f (patch) | |
tree | c476312f52f9bef5972acd6bd4d873eeffd630d8 /src/interp | |
parent | b2d17d4fba6c21be3ca7395ac8972781b0eccd31 (diff) | |
download | open-axiom-ccbb46defe28a8aa9e554d25d1542c8353a4cf4f.tar.gz |
* interp/compiler.boot (compNot): Rename from compileNot.
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/compiler.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 24b80131..e8621c03 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1145,8 +1145,8 @@ compImport(["import",:doms],m,e) == --% etc. ++ compile a logical negation form `(not ...)'. -compileNot: (%Form,%Mode,%Env) -> %Maybe %Triple -compileNot(x,m,e) == +compNot: (%Form,%Mode,%Env) -> %Maybe %Triple +compNot(x,m,e) == x isnt ["not", y] => nil -- ??? For the time being compiler values cannot handle operations -- ??? selected through general modemaps, and their semantics @@ -1744,7 +1744,7 @@ for x in [["|", :"compSuchthat"],_ ["leave", :"compLeave"],_ ["LET", :"compSetq"],_ ["MDEF", :"compMacro"],_ - ["not", :"compileNot"],_ + ["not", :"compNot"],_ ["pretend", :"compPretend"],_ ["Record", :"compCat"],_ ["RecordCategory", :"compConstructorCategory"],_ |