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-funsel.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-funsel.boot')
| -rw-r--r-- | src/interp/i-funsel.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index 611882e2..65f5d292 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -509,7 +509,7 @@ argCouldBelongToSubdomain(op, nargs) == -- if ^0, this indicates that there exists a modemap for the -- op that needs a subdomain in that position nargs = 0 => nil - v := GETZEROVEC nargs + v := mkIntArray nargs isMap(op) => v mms := getModemapsFromDatabase(op,nargs) mms = nil => v |