diff options
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/interp/i-syscmd.boot | 5 |
2 files changed, 7 insertions, 2 deletions
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 <gdr@cs.tamu.edu> + + * interp/i-syscmd.boot (reportOpsFromUnitDirectly): Fix thinko. + 2009-11-08 Gabriel Dos Reis <gdr@cs.tamu.edu> 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] |