diff options
-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 + |