diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 22:45:25 +0000 |
| commit | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (patch) | |
| tree | 8efa5738e30f54559a22950f8b4c3dc33ab4c284 /src/interp/i-analy.boot | |
| parent | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (diff) | |
| download | open-axiom-d1ae1fd7646c2b81c3d23752f6956c7db888e916.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/i-analy.boot')
| -rw-r--r-- | src/interp/i-analy.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index de533d43..b42551f3 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -124,7 +124,7 @@ pushDownTargetInfo(op,target,arglist) == -- put target info on args for certain operations target = $OutputForm => NIL target = $Any => NIL - n := LENGTH arglist + n := # arglist pushDownOnArithmeticVariables(op,target,arglist) (pdArgs := pushDownOp?(op,n)) => for i in pdArgs repeat @@ -192,7 +192,7 @@ pushDownOp?(op,n) == -- sameAsTarg is a vector that counts the number of modemaps that -- have the corresponding argument equal to the target type sameAsTarg := GETZEROVEC n - numMms := LENGTH ops + numMms := # ops for [.,targ,:argl] in ops repeat for arg in argl for i in 0.. repeat targ = arg => setShellEntry(sameAsTarg,i,1 + sameAsTarg.i) |