diff options
author | dos-reis <gdr@axiomatics.org> | 2008-10-17 16:39:46 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-10-17 16:39:46 +0000 |
commit | 3c30d3680a1310bf570c0ae65d5ff6c8d4b9e62e (patch) | |
tree | 625d0962870b7b79056e4dc7a621ac5a0cdc6249 /src | |
parent | 609d4bee769c002962f07d350a37990de05948fc (diff) | |
download | open-axiom-3c30d3680a1310bf570c0ae65d5ff6c8d4b9e62e.tar.gz |
Fix AW/410
* interp/i-syscmd.boot (displaySpad2Cmd): Handle constructor
abbreviation.
Diffstat (limited to 'src')
-rw-r--r-- | src/ChangeLog | 7 | ||||
-rw-r--r-- | src/interp/i-syscmd.boot | 7 | ||||
-rw-r--r-- | src/testsuite/interpreter/aw-410.input | 3 |
3 files changed, 16 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 517d9141..00f98cea 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2008-10-17 Waldek Hebisch <hebisch@math.uni.wroc.pl> + Gabriel Dos Reis <gdr@cs.tamu.edu> + + Fix AW/410 + * interp/i-syscmd.boot (displaySpad2Cmd): Handle constructor + abbreviation. + 2008-10-17 Gregory Vanuxem <g.vanuxem@wanadoo.fr> Fix AW/260 diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 21abc32b..b3fcd0e9 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -877,7 +877,12 @@ displaySpad2Cmd l == option = 'abbreviations => null vl => listConstructorAbbreviations() - for v in vl repeat abbQuery(opOf v) + for v in vl repeat + abbQuery + -- unbbeviate if necessary + v := opOf v + ctor:= abbreviation? v => ctor + v option = 'operations => displayOperations vl option = 'macros => displayMacros vl diff --git a/src/testsuite/interpreter/aw-410.input b/src/testsuite/interpreter/aw-410.input new file mode 100644 index 00000000..4601a2a7 --- /dev/null +++ b/src/testsuite/interpreter/aw-410.input @@ -0,0 +1,3 @@ +-- used to rejected display of constructor abbreviation. +)di abb INT + |