From ccbb46defe28a8aa9e554d25d1542c8353a4cf4f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 20 Jul 2008 16:20:03 +0000
Subject: 	* interp/compiler.boot (compNot): Rename from compileNot.

---
 src/ChangeLog            | 4 ++++
 src/interp/compiler.boot | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/ChangeLog b/src/ChangeLog
index 80a6cde8..82ef78c4 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-20  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* interp/compiler.boot (compNot): Rename from compileNot.
+
 2008-07-15  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* input/pat.input.pamphlet (square): Define square an operatpr.
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"],_
-- 
cgit v1.2.3