From 3c30d3680a1310bf570c0ae65d5ff6c8d4b9e62e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 17 Oct 2008 16:39:46 +0000 Subject: Fix AW/410 * interp/i-syscmd.boot (displaySpad2Cmd): Handle constructor abbreviation. --- src/ChangeLog | 7 +++++++ src/interp/i-syscmd.boot | 7 ++++++- src/testsuite/interpreter/aw-410.input | 3 +++ 3 files changed, 16 insertions(+), 1 deletion(-) create mode 100644 src/testsuite/interpreter/aw-410.input (limited to 'src') 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 + Gabriel Dos Reis + + Fix AW/410 + * interp/i-syscmd.boot (displaySpad2Cmd): Handle constructor + abbreviation. + 2008-10-17 Gregory Vanuxem 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 + -- cgit v1.2.3