diff options
Diffstat (limited to 'src/interp/i-map.boot')
-rw-r--r-- | src/interp/i-map.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index f2512ced..fabad1c4 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -610,7 +610,7 @@ rewriteMap0(op,opName,argl) == else val:= getValue arg $env:=put(var,'value,val,$env) - if VECP arg then $env := put(var,'name,getUnname arg,$env) + if vector? arg then $env := put(var,'name,getUnname arg,$env) (m := getMode arg) => $env := put(var,'mode,m,$env) null (val:= interpMap(opName,tar)) => throwKeyedMsg("S2IM0010",[opName]) @@ -643,7 +643,7 @@ rewriteMap1(opName,argl,sig) == else val:= evArg $env:=put(var,'value,val,$env) - if VECP arg then $env := put(var,'name,getUnname arg,$env) + if vector? arg then $env := put(var,'name,getUnname arg,$env) (m := getMode arg) => $env := put(var,'mode,m,$env) val:= interpMap(opName,tar) removeBodyFromEnv(opName) |