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/mark.boot.pamphlet | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/mark.boot.pamphlet') diff --git a/src/interp/mark.boot.pamphlet b/src/interp/mark.boot.pamphlet index 83f63d2a..a72c838d 100644 --- a/src/interp/mark.boot.pamphlet +++ b/src/interp/mark.boot.pamphlet @@ -281,7 +281,7 @@ markRepeat(form, T) == markTran(form,form',[dc,:sig],env) == --from compElt/compFormWithModemap dc ^= 'Rep or ^MEMQ('_$,sig) => mkWi('markTran,'WI,form,['call,:form']) - argl := [u for t in rest sig for arg in rest form'] where u == + argl := [u for t in rest sig for arg in rest form'] where u() == t='_$ => argSource := getSourceWI arg IDENTP argSource and getmode(argSource,env) = 'Rep => arg @@ -1294,7 +1294,7 @@ moveImportsAfterDefinitions lines == -- pp defineAlist -- pp importAlist for [name, :i] in defineAlist repeat - or/[fn for [imp, :j] in importAlist] where fn == + or/[fn for [imp, :j] in importAlist] where fn() == substring?(name,imp,0) => moveAlist := [[i,:j], :moveAlist] nil @@ -1465,7 +1465,7 @@ rplacaSubst(x, y, u) == (fn(x, y, u); u) where fn(x,y,u) == u := q buildNewDefinition(op,theSig,formPredAlist) == - newAlist := [fn for item in formPredAlist] where fn == + newAlist := [fn for item in formPredAlist] where fn() == [form,:predl] := item pred := null predl => 'T -- cgit v1.2.3