From 50eb3f193c9430ce498b89680442a703544f75f9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 16 Oct 2008 04:06:43 +0000
Subject: 	* interp/compiler.boot (backendCompile1): Move to c-util.boot.
 	(COMP): Likewise.  Rename to backendCompile. 	(compileFileQuietly):
 Move to c-util.boot. 	(compAndDefine): Likewise. 	(compQuietly):
 Likewise. 	(compileQuitely): Likewise.

---
 src/interp/define.boot | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/interp/define.boot')

diff --git a/src/interp/define.boot b/src/interp/define.boot
index 3104d044..642906d7 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -541,7 +541,7 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body],
        --this is used below to set $lisplibSlot1 global
     $NRTaddForm: local := nil   -- see compAdd; NRTmakeSlot1
     $NRTdeltaList: local := nil --list of misc. elts used in compiled fncts
-    $NRTdeltaListComp: local := nil --list of COMP-ed forms for $NRTdeltaList
+    $NRTdeltaListComp: local := nil --list of compiled forms for $NRTdeltaList
     $NRTaddList: local := nil --list of fncts not defined in capsule (added)
     $NRTdeltaLength: local := 0 -- =length of block of extra entries in vector
     $NRTloadTimeAlist: local := nil --used for things in slot4 (NRTsetVector4)
@@ -668,9 +668,9 @@ compFunctorBody(body,m,e,parForm) ==
   $capsuleFunctionStack := nreverse $capsuleFunctionStack
   -- ??? Don't resolve default definitions, yet.
   if $insideCategoryPackageIfTrue then
-    COMP $capsuleFunctionStack
+    backendCompile $capsuleFunctionStack
   else 
-    COMP foldExportedFunctionReferences $capsuleFunctionStack
+    backendCompile foldExportedFunctionReferences $capsuleFunctionStack
   clearCapsuleDirectory()        -- release storage.
   body is [op,:.] and MEMQ(op,'(add CAPSULE)) => T
   $NRTaddForm :=
@@ -1265,7 +1265,7 @@ spadCompileOrSetq (form is [nam,[lam,vl,body]]) ==
     $optExportedFunctionReference =>
       $capsuleFunctionStack := [form,:$capsuleFunctionStack]
       first form
-    first COMP LIST form
+    first backendCompile LIST form
   compileConstructor form
  
 compileConstructor form ==
@@ -1287,7 +1287,7 @@ compileConstructor1 (form:=[fn,[key,vl,:bodyl]]) ==
   compForm:= LIST [fn,[lambdaOrSlam,vl,:bodyl]]
   if getConstructorKindFromDB fn = "category"
       then u:= compAndDefine compForm
-      else u:=COMP compForm
+      else u:= backendCompile compForm
   clearConstructorCache fn      --clear cache for constructor
   first u
  
-- 
cgit v1.2.3