From 2f97f0a378ac0663d14f1e4e5a8df6c3d824fdd6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 19 May 2011 02:28:08 +0000
Subject: more cleanup

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

(limited to 'src/interp/i-special.boot')

diff --git a/src/interp/i-special.boot b/src/interp/i-special.boot
index 9d513364..db86d8db 100644
--- a/src/interp/i-special.boot
+++ b/src/interp/i-special.boot
@@ -155,7 +155,7 @@ compileADEFBody(t,vars,types,body,computedResultType) ==
   $compiledOpNameList := [$mapName]
   minivectorName := makeInternalMapMinivectorName symbolName $mapName
   body := substitute(["%dynval",MKQ minivectorName],"$$$",body)
-  setDynamicBinding(minivectorName,LIST2VEC $minivector)
+  symbolValue(minivectorName) := LIST2VEC $minivector
 
   -- The use of the three variables $definingMap, $genValue and $compilingMap
   -- is to cover the following cases:
-- 
cgit v1.2.3