diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-10-15 06:42:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-10-15 06:42:17 +0000 |
| commit | ba8c0daf0ca45c08bd5025f9dd67892132a16110 (patch) | |
| tree | 71b029dab47db0afa333d584446fd25cac2c5c2d /src/interp | |
| parent | 67a514d354eabbb78771e95e39d3de95c49966cd (diff) | |
| download | open-axiom-ba8c0daf0ca45c08bd5025f9dd67892132a16110.tar.gz | |
* interp/i-syscmd.boot (reportOpsFromUnitDirectly): Tidy.
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 |