aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-07-20 16:20:03 +0000
committerdos-reis <gdr@axiomatics.org>2008-07-20 16:20:03 +0000
commitccbb46defe28a8aa9e554d25d1542c8353a4cf4f (patch)
treec476312f52f9bef5972acd6bd4d873eeffd630d8 /src/interp
parentb2d17d4fba6c21be3ca7395ac8972781b0eccd31 (diff)
downloadopen-axiom-ccbb46defe28a8aa9e554d25d1542c8353a4cf4f.tar.gz
* interp/compiler.boot (compNot): Rename from compileNot.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/compiler.boot6
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"],_