From 3467029153bc8d2115fb961eb5e4e995d62034f0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 18 Jul 2010 05:43:52 +0000 Subject: More cleanups --- src/interp/database.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/database.boot') 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 -- cgit v1.2.3