diff options
Diffstat (limited to 'src/interp/i-funsel.boot')
-rw-r--r-- | src/interp/i-funsel.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index e0b841d9..6e3c5549 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -75,7 +75,7 @@ selectMms(op,args,$declaredMode) == ((isSharpVarWithNum(n) and opMode) or (val and opMode)) and opMode is ['Mapping,:ta] => imp := - val => wrapped2Quote objVal val + val => getValueNormalForm val n [[['local,:ta], imp , NIL]] @@ -101,7 +101,7 @@ selectMms(op,args,$declaredMode) == putTarget(tree,['Mapping,tar,:types1]) bottomUp tree val := getValue tree - [[['local,:rest objMode val], wrapped2Quote objVal val, NIL]] + [[['local,:rest objMode val], getValueNormalForm val, NIL]] if (n = 'map) and (first types1 = $AnonymousFunction) then |