diff options
Diffstat (limited to 'src/interp/i-map.boot')
-rw-r--r-- | src/interp/i-map.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 0da27dee..f5ad2a2e 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -552,7 +552,7 @@ rewriteMap(op,opName,argl) == arglCode := ['LIST,:[argCode for arg in argl for argName in $FormalMapVariableList]] where argCode() == ['putValueValue,['mkAtreeNode,MKQ argName], - objNewCode(['wrap,wrapped2Quote(objVal getValue arg)], + objNewCode(['wrap,getValueNormalForm getValue arg], getMode arg)] putValue(op,objNew(['rewriteMap1,MKQ opName,arglCode,MKQ sig], CAR sig)) |