diff options
author | dos-reis <gdr@axiomatics.org> | 2012-01-14 11:56:20 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-01-14 11:56:20 +0000 |
commit | 9906d4079093b27d185f4116485fffe80ff19380 (patch) | |
tree | da1b4e4f7d0ffc3e05ee63f04826274c62832708 /src/interp/i-analy.boot | |
parent | 7d98b7fa7d816f132fb09bf439333f4145c603f8 (diff) | |
download | open-axiom-9906d4079093b27d185f4116485fffe80ff19380.tar.gz |
* lisp/core.lisp.in (mkIntArray): New. Export.
* interp/patches.lisp (/RF): Move to cparse.boot.
(/RQ): Likewise.
(/RQ,LIB): Likewise.
(/RF-1): Likewise.
(/EF): Move to spad.lisp.
(construct): Remove.
(READSPADEXPR): Likewise.
(SHAREDITEMS): Likewise.
(installStandardTestPackages): Likewise.
(spadtestValueHook): Likewise.
(testError): Likewise.
($TestOptions): Likewise.
(rebuild): Likewise.
($ViewportProcessToWatch): Likewise.
(setViewportProcess): Likewise.
(waitForViewport): Likewise.
* interp/i-analy.boot (pushDownOp?): Use mkIntArray in place of
GETZEROVEC.
* interp/i-funsel.boot (argCouldBelongToSubdomain): Likewise.
* interp/i-intern.boot (flagArguments): Likewise.
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 e0624236..54d576b1 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -188,7 +188,7 @@ pushDownOp?(op,n) == -- [domain of implementation, target, arg1, arg2, ...] -- sameAsTarg is a vector that counts the number of modemaps that -- have the corresponding argument equal to the target type - sameAsTarg := GETZEROVEC n + sameAsTarg := mkIntArray n numMms := # ops for [.,targ,:argl] in ops repeat for arg in argl for i in 0.. repeat |