diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-syscmd.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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 |