diff options
Diffstat (limited to 'src/interp/i-analy.boot')
| -rw-r--r-- | src/interp/i-analy.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index 6789b78e..01c42858 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -137,7 +137,7 @@ pushDownTargetInfo(op,target,arglist) == if not getTarget(x) then putTarget(x,S) 2 = nargs => op = "*" => -- only push down on 1st arg if not immed - if not getTarget CADR arglist then putTarget(CADR arglist,target) + if not getTarget second arglist then putTarget(second arglist,target) getTarget(x := CAR arglist) => NIL if getUnname(x) ~= $immediateDataSymbol then putTarget(x,target) op = "**" or op = "^" => -- push down on base |