From 3f40cfa51fa0a3827ff0e06318103be5f63e367b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 10 Nov 2009 00:02:05 +0000 Subject: * interp/i-syscmd.boot (reportOpsFromUnitDirectly): Fix thinko. --- src/ChangeLog | 4 ++++ src/interp/i-syscmd.boot | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 0af59b83..9428a5b5 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-11-09 Gabriel Dos Reis + + * interp/i-syscmd.boot (reportOpsFromUnitDirectly): Fix thinko. + 2009-11-08 Gabriel Dos Reis Fix SF/2893009 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] -- cgit v1.2.3