From 491eda903e80958a28a53d36688a65911a0d2978 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 11 Sep 2007 21:07:16 +0000 Subject: * template.boot: New. * template.boot.pamphlet: Move content to template.boot. Remove. * termrw.boot: New. * termrw.boot.pamphlet: Move content to template.boot. Remove. * topics.boot: New. * topics.boot.pamphlet: Move content to topics.boot. Remove. * trace.boot: New. * trace.boot.pamphlet: Move content to trace.boot. Remove. * varini.boot: New. * varini.boot.pamphlet: Move content to varini.boot. Remove. * xrun.boot: New. * xrun.boot.pamphlet: Move content to xrun.boot. Remove * xruncomp.boot: New. * xruncomp.boot.pamphlet: Move content to xruncomp.boot. Remove. * Makefile.pamphlet (<>): Remove. (<>): Likewise. (<>): Likewise. (<>): Likewise. (<>): Likewise. --- src/interp/showimp.boot.pamphlet | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/showimp.boot.pamphlet') diff --git a/src/interp/showimp.boot.pamphlet b/src/interp/showimp.boot.pamphlet index ae682ad3..49b72338 100644 --- a/src/interp/showimp.boot.pamphlet +++ b/src/interp/showimp.boot.pamphlet @@ -141,7 +141,7 @@ getDomainSigs(D,:option) == getDomainSigs1(D,first option) getDomainSigs1(D,ops) == listSort(function GLESSEQP,u) where - u == [x for x in getDomainOpTable(D,nil) | null ops or MEMQ(CAR x,ops)] + u() == [x for x in getDomainOpTable(D,nil) | null ops or MEMQ(CAR x,ops)] getDomainDocs(D,:option) == domname := D.0 @@ -182,7 +182,7 @@ getCategoriesOfDomain domain == predkeyVec := domain.4.0 catforms := CADR domain.4 [fn for i in 0..MAXINDEX predkeyVec | test] where - test == predkeyVec.i and + test() == predkeyVec.i and (x := catforms . i) isnt ['DomainSubstitutionMacro,:.] fn == VECP x => devaluate x @@ -194,7 +194,7 @@ getInheritanceByDoc(D,op,sig,:options) == catList := KAR options or getExtensionsOfDomain D getDocDomainForOpSig(op,sig,devaluate D,D) or or/[fn for x in catList] or '(NIL NIL) - where fn == getDocDomainForOpSig(op,sig,substDomainArgs(D,x),D) + where fn() == getDocDomainForOpSig(op,sig,substDomainArgs(D,x),D) getDocDomainForOpSig(op,sig,dollar,D) == (u := LASSOC(op,GETDATABASE(CAR dollar,'DOCUMENTATION))) -- cgit v1.2.3