diff options
Diffstat (limited to 'src/interp/slam.boot')
| -rw-r--r-- | src/interp/slam.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index 8adf4882..9e950e61 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -45,7 +45,7 @@ reportFunctionCompilation(op,nam,argl,body,isRecursive) == $compiledOpNameList := [nam] minivectorName := makeInternalMapMinivectorName(nam) body := substitute(minivectorName,"$$$",body) - setDynamicBinding(minivectorName,LIST2REFVEC $minivector) + setDynamicBinding(minivectorName,LIST2VEC $minivector) argl := COPY argl -- play it safe for optimization init := not(isRecursive and $compileRecurrence and #argl = 1) => nil |