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-map.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot
index 03527f2c..6a5f905f 100644
--- a/src/interp/i-map.boot
+++ b/src/interp/i-map.boot
@@ -707,7 +707,7 @@ compileDeclaredMap(op,sig,mapDef) ==
 putMapCode(op,code,sig,name,parms,isRecursive) ==
   -- saves the generated code and some other information about the
   -- function
-  codeInfo := VECTOR(op,code,sig,name,parms,isRecursive)
+  codeInfo := vector [op,code,sig,name,parms,isRecursive]
   allCode := [codeInfo,:get(op,'generatedCode,$e)]
   $e := putHist(op,'generatedCode,allCode,$e)
   op
@@ -774,7 +774,7 @@ compileCoerceMap(op,argTypes,mm) ==
   body := ['SPADCALL,:argCode,['LIST,['function,imp]]]
   minivectorName := makeInternalMapMinivectorName name
   body := substitute(["%dynval",MKQ minivectorName],"$$$",body)
-  setDynamicBinding(minivectorName,LIST2VEC $minivector)
+  symbolValue(minivectorName) := LIST2VEC $minivector
   compileInteractive [name,['LAMBDA,parms,body]]
   sig.target
 
-- 
cgit v1.2.3