diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-11-10 00:02:05 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-11-10 00:02:05 +0000 |
| commit | 3f40cfa51fa0a3827ff0e06318103be5f63e367b (patch) | |
| tree | 4399b1fc49b13b33382ca0d769c342ba37fc75b5 | |
| parent | beb923feadbabd89f92eb61dc6284d41eeccd540 (diff) | |
| download | open-axiom-3f40cfa51fa0a3827ff0e06318103be5f63e367b.tar.gz | |
* interp/i-syscmd.boot (reportOpsFromUnitDirectly): Fix thinko.
| -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] |