From a73349338f650dea30da980fe22e5c750884cc85 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 22 Oct 2007 10:25:52 +0000 Subject: * br-data.boot.pamphlet (getImports): Rename `import' to `doImport'. * define.boot.pamphlet (hasSigInTargetCategory): Pretty-print signature in diagnostics. * i-syscmd.boot.pamphlet: Fix syntax. * mark.boot: Likewise. --- src/interp/define.boot.pamphlet | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/interp/define.boot.pamphlet') diff --git a/src/interp/define.boot.pamphlet b/src/interp/define.boot.pamphlet index db8adaf8..cf6ba96a 100644 --- a/src/interp/define.boot.pamphlet +++ b/src/interp/define.boot.pamphlet @@ -894,7 +894,8 @@ hasSigInTargetCategory(argl,form,opsig,e) == 0=c => (#(sig:= getSignatureFromMode(form,e))=#form => sig; nil) 1 sig:= first potentialSigList - stackWarning ["signature of lhs not unique:",:bright sig,"chosen"] + stackWarning ["signature of lhs not unique:", + :bright formatSignature sig, "chosen"] sig nil --this branch will force all arguments to be declared @@ -1263,7 +1264,7 @@ doIt(item,$predl) == --This will RPLAC as appropriate isDomainForm(item,$e) => -- convert naked top level domains to import - u:= ['import, [first item,:rest item]] + u:= ["import", [first item,:rest item]] stackWarning ["Use: import ", [first item,:rest item]] RPLACA(item,first u) RPLACD(item,rest u) @@ -1302,7 +1303,7 @@ doIt(item,$predl) == RPLACA(item,first code) RPLACD(item,rest code) item is [":",a,t] => [.,.,$e]:= compOrCroak(item,$EmptyMode,$e) - item is ['import,:doms] => + item is ["import",:doms] => for dom in doms repeat sayBrightly ['" importing ",:formatUnabbreviated dom] [.,.,$e] := compOrCroak(item,$EmptyMode,$e) -- cgit v1.2.3