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-intern.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-intern.boot')
-rw-r--r-- | src/interp/i-intern.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index eefc2a55..2dc3e34a 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -298,7 +298,7 @@ mkAtree3(x,op,argl) == ++ positive entry indicates that modemaps for `op' takes flag arguments ++ in that position. flagArguments(op, nargs) == - v := GETZEROVEC nargs + v := mkIntArray nargs sigs := [signatureFromModemap m for m in getModemapsFromDatabase(op, nargs)] checkCallingConvention(sigs, nargs) |