aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-op1.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-07-05 19:25:57 +0000
committerdos-reis <gdr@axiomatics.org>2011-07-05 19:25:57 +0000
commit6bd583e0e2bb0f965b02c984e9027c120642b4e6 (patch)
treed92f1848fb285e46844250fe7813311fb295ebfb /src/interp/br-op1.boot
parentd9b3cb273671264edcd5fd5fa0acde22a181fd66 (diff)
downloadopen-axiom-6bd583e0e2bb0f965b02c984e9027c120642b4e6.tar.gz
* 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.
Diffstat (limited to 'src/interp/br-op1.boot')
-rw-r--r--src/interp/br-op1.boot2
1 files changed, 1 insertions, 1 deletions
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