diff options
author | dos-reis <gdr@axiomatics.org> | 2011-07-05 19:25:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-07-05 19:25:57 +0000 |
commit | 6bd583e0e2bb0f965b02c984e9027c120642b4e6 (patch) | |
tree | d92f1848fb285e46844250fe7813311fb295ebfb /src/interp/br-op2.boot | |
parent | d9b3cb273671264edcd5fd5fa0acde22a181fd66 (diff) | |
download | open-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-op2.boot')
-rw-r--r-- | src/interp/br-op2.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index 0b30f52c..bc9e0049 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -419,7 +419,7 @@ kFormatSlotDomain x == fn formatSlotDomain x where fn x == (op := first x) is '_$ => '_$ op is 'local => second x op is ":" => [":",second x,fn third x] - isConstructorName op => [fn y for y in x] + IDENTP op and isConstructorName op => [fn y for y in x] integer? op => op op is 'QUOTE and atom second x => second x x |