From ba8c0daf0ca45c08bd5025f9dd67892132a16110 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 15 Oct 2009 06:42:17 +0000
Subject: 	* interp/i-syscmd.boot (reportOpsFromUnitDirectly): Tidy.

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

(limited to 'src/interp')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 7db77377..19c27f20 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -2473,7 +2473,7 @@ reportOpsFromLisplib1(unitForm,u)  ==
   editFile showFile
 
 reportOpsFromUnitDirectly unitForm ==
-  isRecordOrUnion := unitForm is [a,:.] and a in '(Record Union)
+  isRecordOrUnion := unitForm is [a,:.] and a in $DomainNames
   unit:= evalDomain unitForm
   top:= first unitForm
   kind:= getConstructorKindFromDB top
@@ -2514,7 +2514,7 @@ reportOpsFromUnitDirectly unitForm ==
             systemErrorHere ["reportOpsFromUnitDirectly",top]
           [funlist,.]:= FUNCALL(constructorFunction,"$",unitForm,
             $CategoryFrame)
-          sigList := REMDUP MSORT [[[a,b],true,[c,0,1]] for
+          sigList := REMDUP MSORT [[[a,b],true,c] for
             [a,b,c] in funlist]
         else
           sigList:= REMDUP MSORT getOplistForConstructorForm unitForm
-- 
cgit v1.2.3