From 31a2bea16b21b23a129599b2fd84843e58ac9273 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 25 Jan 2008 06:18:41 +0000
Subject: 	Fix AW/311 	* interp/i-syscmd.boot
 (displayOperationsFromLisplib): Say no 	exported operations when there
 is nothing to display.

---
 src/interp/i-syscmd.boot | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/interp')

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
-- 
cgit v1.2.3