aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog7
-rw-r--r--src/interp/i-syscmd.boot7
-rw-r--r--src/testsuite/interpreter/aw-410.input3
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
+