aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
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"],_