From be93662f10155b4648744ed1e9c0eb3eb2cda950 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 30 Nov 2011 11:57:37 +0000
Subject: 	* interp/c-util.boot (clearReplacement): Clear redex
 replacement. 	(registerRedexForm): New. 	(redexForm): Likewise. 
 (inlineDirectCall): Inline functions with known redex forms. 
 (foldExportedFunctionReferences): Compute redex forms. 
 (backendCompileILAM): Remove as unused. 	(backendCompile2): Adjust. 
 (massageBackendCode): Likeiwse. 	* interp/define.boot
 (compDefineCapsuleFunction): Clear 	replacement info.

---
 src/interp/define.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/define.boot b/src/interp/define.boot
index 44ace682..c79d4d16 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1904,6 +1904,7 @@ compDefineCapsuleFunction(db,df is ['DEF,form,signature,body],
     -- Let the backend know about this function's type
     if $optProclaim then
       proclaimCapsuleFunction(op',signature)
+    clearReplacement op'   -- Make sure we have fresh info
     -- Finally, build a lambda expression for this function.
     fun :=
       catchTag := MKQ gensym()
@@ -2031,7 +2032,6 @@ spadCompileOrSetq(db,form is [nam,[lam,vl,body]]) ==
     renameParameter() ==
       integer? v or ident? v or string? v => v
       gensym '"flag"
-  clearReplacement nam   -- Make sure we have fresh info
   if $optReplaceSimpleFunctions then
     body := replaceSimpleFunctions body
 
-- 
cgit v1.2.3