From 016dfe5e315ee3ffb914813e68df4e5202dc7308 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 17 Nov 2007 22:29:45 +0000 Subject: * Makefile.pamphlet (clammed.$(FASLEXT)): New rule. (<>): Remove. * clammed.boot.pamphlet: Push into package "BOOT". Fix syntax. --- src/interp/clammed.boot.pamphlet | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/interp/clammed.boot.pamphlet') diff --git a/src/interp/clammed.boot.pamphlet b/src/interp/clammed.boot.pamphlet index af4ea229..1027d7e9 100644 --- a/src/interp/clammed.boot.pamphlet +++ b/src/interp/clammed.boot.pamphlet @@ -45,6 +45,9 @@ @ <<*>>= <> +import '"g-timer" +)package "BOOT" +)eval BOOTTRAN::$bfClamming := true --% Functions on $clamList @@ -125,10 +128,10 @@ isValidType form == if # cl ^= # argl and GENSYMP last argl then argl:= DROP(-1,argl) # cl ^= # argl => nil cl:= replaceSharps(cl,form) - and/[isValid for x in argl for c in cl] where isValid == + and/[isValid for x in argl for c in cl] where isValid() == categoryForm?(c) => evalCategory(x,MSUBSTQ(x,'_$,c)) and isValidType x - not GETDATABASE(opOf x,'CONSTRUCTORKIND) = 'domain + GETDATABASE(opOf x,'CONSTRUCTORKIND) ^= 'domain selectMms1(op,tar,args1,args2,$Coerce) == -- for new compiler/old world compatibility, sometimes have to look -- cgit v1.2.3