diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-25 06:18:41 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-25 06:18:41 +0000 |
| commit | 31a2bea16b21b23a129599b2fd84843e58ac9273 (patch) | |
| tree | 54384412d3390c564bb6a6417edc0f1b7867a5c3 /src/interp | |
| parent | 82b4511dffa72a7521bd751ccb7d220ed4f2f7ae (diff) | |
| download | open-axiom-31a2bea16b21b23a129599b2fd84843e58ac9273.tar.gz | |
Fix AW/311
* interp/i-syscmd.boot (displayOperationsFromLisplib): Say no
exported operations when there is nothing to display.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-syscmd.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 582b5f66..9835c95c 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2424,7 +2424,8 @@ displayOperationsFromLisplib form == kind := GETDATABASE(name,'CONSTRUCTORKIND) centerAndHighlight('"Operations",$LINELENGTH,specialChar 'hbar) opList:= GETDATABASE(name,'OPERATIONALIST) - null opList => reportOpsFromUnitDirectly form + null opList => + centerAndHighlight('"No exported operations",$LINELENGTH) opl:=REMDUP MSORT EQSUBSTLIST(argl,$FormalMapVariableList,opList) ops:= nil for x in opl repeat |