From 6bd583e0e2bb0f965b02c984e9027c120642b4e6 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 5 Jul 2011 19:25:57 +0000 Subject: * interp/br-util.boot ($charUnderscore): Move to br-search.boot where it is used. * interp/br-search.boot (pmPreparse): Tidy. (mkGrepPattern1): Likewise. (genSearch): Don't try to remove default operations; they have already been left out by grepSplit. (docSearch): Likewise. * interp/br-con.boot (dbShowConsDoc1): Don't confusingly enclose a straightline documentation in a list. * interp/br-op1.boot (dbShowOpDocumentation): Remove redundant test. * interp/br-op2.boot (kFormatSlotDomain): Call isConstructorName only on identifiers. * interp/br-saturn.boot (displayDomainOp): Tidy. (bcConform1): Likewise. --- src/interp/br-op1.boot | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/br-op1.boot') diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index 5d0e41e5..dad326ca 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -662,7 +662,7 @@ dbShowOpDocumentation(htPage,opAlist,which,data) == dbReadComments k tail := CDDDDR item tail.first := comments - doc := (string? comments and comments isnt '"" => comments; nil) + doc := (comments isnt '"" => comments; nil) pred := predicate or true index := (exactlyOneOpSig => nil; base + j) if which is '"package operation" then -- cgit v1.2.3