diff options
Diffstat (limited to 'src/interp/i-map.boot')
| -rw-r--r-- | src/interp/i-map.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index ab24945f..713f32d2 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -763,16 +763,16 @@ compileCoerceMap(op,argTypes,mm) == name:= makeLocalModemap(op,[first sig,:argTypes]) argCode := [objVal(coerceInteractive(objNew(arg,t1),t2) or throwKeyedMsg("S2IC0001",[arg,$mapName,t1,t2])) - for t1 in argTypes for t2 in rest sig for arg in parms] + for t1 in argTypes for t2 in sig.source for arg in parms] $insideCompileBodyIfTrue := false parms:= [:parms,'envArg] body := ['SPADCALL,:argCode,['LIST,['function,imp]]] - minivectorName := makeInternalMapMinivectorName(name) - body := declareUnusedParameters(parms,substitute(minivectorName,"$$$",body)) + minivectorName := makeInternalMapMinivectorName name + body := substitute(["%dynval",MKQ minivectorName],"$$$",body) setDynamicBinding(minivectorName,LIST2VEC $minivector) - compileInteractive - [name,['LAMBDA,parms,declareGlobalVariables [minivectorName],:body]] - first sig + compileInteractive + [name,['LAMBDA,parms,:declareUnusedParameters(parms,body)]] + sig.target depthOfRecursion(opName,body) == -- returns the "depth" of recursive calls of opName in body |