diff options
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 19c27f20..e17d6f65 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2514,8 +2514,9 @@ reportOpsFromUnitDirectly unitForm == systemErrorHere ["reportOpsFromUnitDirectly",top] [funlist,.]:= FUNCALL(constructorFunction,"$",unitForm, $CategoryFrame) - sigList := REMDUP MSORT [[[a,b],true,c] for - [a,b,c] in funlist] + sigList := REMDUP MSORT + [[[a,b],true,slot c] for [a,b,c] in funlist] + where slot c == (atom c => [c,0,1]; c) else sigList:= REMDUP MSORT getOplistForConstructorForm unitForm say2PerLine [formatOperation(x,unit) for x in sigList] |