From 87eee27996cc401e7d39f7f5c9a19841269f50fc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 4 Oct 2008 04:19:11 +0000
Subject: 	* interp/c-util.boot (clearReplacement): New. 
 (getFunctionReplacement): Likewise. 	(replaceSimpleFunctions): Likewise. 
 * interp/define.boot (spadCompileOrSetq): Use it.

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

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

diff --git a/src/interp/define.boot b/src/interp/define.boot
index b607cd4b..5939cdcb 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1231,6 +1231,9 @@ spadCompileOrSetq (form is [nam,[lam,vl,body]]) ==
     renameParameter() ==
       NUMBERP v or IDENTP v or STRINGP v => v
       GENSYM '"flag"
+  clearReplacement nam   -- Make sure we have fresh info
+  if $optReplaceSimpleFunctions then
+    body := replaceSimpleFunctions body
   form := [nam,[lam,vl,body]]
 
   if vl is [:vl',E] and body is [nam',: =vl'] then
-- 
cgit v1.2.3