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 f755f036..04cdb66d 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -579,7 +579,7 @@ rewriteMap0(op,opName,argl) == -- $genValue case of map rewriting putBodyInEnv(opName, #argl) if (s := get(opName,'mode,$e)) then - tar := CADR s + tar := second s argTypes := CDDR s else tar:= nil |