diff options
Diffstat (limited to 'src/interp/i-map.boot')
| -rw-r--r-- | src/interp/i-map.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 56eae07a..6ae29170 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -760,7 +760,8 @@ compileCoerceMap(op,argTypes,mm) == minivectorName := makeInternalMapMinivectorName(name) body := substitute(minivectorName,"$$$",body) setDynamicBinding(minivectorName,LIST2REFVEC $minivector) - compileInteractive [name,['LAMBDA,parms,body]] + compileInteractive + [name,['LAMBDA,parms,declareGlobalVariables [minivectorName],body]] CAR sig depthOfRecursion(opName,body) == |