From 004d25ab39f6f6867eb767bc7ba9b3fcce4e47a8 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 16 Oct 2007 16:03:14 +0000 Subject: * Makefile.pamphlet (INOBJS): Lose xrun.$(FASLEXT). * clammed.boot.pamphlet (coerceConvertMmSelection): Merge modification in late xrun.boot. * i-coerce.boot.pamphlet (equalOne): Likewise. (equalZero): Likewise. (algEqual): Likewise. (coerceByFunction): Likewise. * i-eval.boot.pamphlet (evalFrom): Likewise. (findFunctionInDomain): Likewise. (findFunctionInDomain1): Likewise. (findFunctionInCategory): Likewise. * nrunfast.boot.pamphlet (replaceGoGetSlot): Likewise. (lazyMatchArg2): Likewise. (newExpandTypeSlot): Likewise. (newExpandLocalTypeForm): Likewise. (newExpandLocalTypeArgs): Likewise. (sigDomainVal): Likewise. * nrungo.boot.pamphlet (lazyCompareSigEqual): Likewise. * nrunopt.boot.pamphlet (NRTmakeCategoryAlist): Likewise. * sys-globals.boot ($noSubsumption): Likewise. * template.boot (evalSlotDomain): Likewise. * xrun.boot: Remove. --- src/interp/nrungo.boot.pamphlet | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/interp/nrungo.boot.pamphlet') diff --git a/src/interp/nrungo.boot.pamphlet b/src/interp/nrungo.boot.pamphlet index 72a8e153..f0ecf57f 100644 --- a/src/interp/nrungo.boot.pamphlet +++ b/src/interp/nrungo.boot.pamphlet @@ -255,9 +255,8 @@ compareSig(sig,tableSig,dollar,domain) == and/[lazyCompareSigEqual(s,t,dollar,domain) for s in rest sig for t in rest tableSig] ---------------------> NEW DEFINITION (override in xrun.boot.pamphlet) lazyCompareSigEqual(s,tslot,dollar,domain) == - tslot = '$ => s = devaluate dollar --needed for browser + tslot = '$ => s = tslot -- devaluate dollar --needed for browser INTEGERP tslot and PAIRP(lazyt:=domain.tslot) and PAIRP s => lazyt is [.,.,.,[.,item,.]] and item is [.,[functorName,:.]] and functorName = CAR s => -- cgit v1.2.3