diff options
Diffstat (limited to 'src/interp/i-spec2.boot')
| -rw-r--r-- | src/interp/i-spec2.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec2.boot b/src/interp/i-spec2.boot index 10fff2dc..cd444eca 100644 --- a/src/interp/i-spec2.boot +++ b/src/interp/i-spec2.boot @@ -266,7 +266,7 @@ compileIF(op,cond,a,b,t) == -- if this was a return statement, we take the mode to be that -- of what is being returned. if getUnname a = 'return then - ms1 := bottomUp CADR a + ms1 := bottomUp second a [m1] := ms1 evalIF(op,rest t,m1) putModeSet(op,ms1) @@ -1077,7 +1077,7 @@ uptuple t == aggs := '(List) if tar and CONSP(tar) and not isPartialMode(tar) then CAR(tar) in aggs => - ud := CADR tar + ud := second tar for x in l repeat if not getTarget(x) then putTarget(x,ud) CAR(tar) in '(Matrix SquareMatrix RectangularMatrix) => vec := ['List,underDomainOf tar] |