diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-18 05:43:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-18 05:43:52 +0000 |
| commit | 3467029153bc8d2115fb961eb5e4e995d62034f0 (patch) | |
| tree | 749cf4c97081e5013fb31b1c5af16262da65327a /src/interp/database.boot | |
| parent | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (diff) | |
| download | open-axiom-3467029153bc8d2115fb961eb5e4e995d62034f0.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/database.boot')
| -rw-r--r-- | src/interp/database.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 040f5cb6..f7cff26a 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -576,7 +576,7 @@ getSystemModemaps(op,nargs) == mml:= getOperationFromDB op => mms := NIL for (x := [[.,:sig],.]) in mml repeat - (NUMBERP nargs) and (nargs ~= # sig.source) => 'iterate + (integer? nargs) and (nargs ~= # sig.source) => 'iterate $getUnexposedOperations or isFreeFunctionFromMm(x) or isExposedConstructor(getDomainFromMm(x)) => mms := [x,:mms] 'iterate @@ -587,7 +587,7 @@ getInCoreModemaps(modemapList,op,nargs) == mml:= LASSOC (op,modemapList) => mml:= first mml [x for (x:= [[dc,:sig],.]) in mml | - (NUMBERP nargs => nargs=#rest sig; true) and + (integer? nargs => nargs=#rest sig; true) and (cfn := abbreviate (domName := getDomainFromMm x)) and ($getUnexposedOperations or isExposedConstructor(domName))] nil |