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 /src/interp | |
| parent | beb923feadbabd89f92eb61dc6284d41eeccd540 (diff) | |
| download | open-axiom-3f40cfa51fa0a3827ff0e06318103be5f63e367b.tar.gz | |
* interp/i-syscmd.boot (reportOpsFromUnitDirectly): Fix thinko.
Diffstat (limited to 'src/interp')
| -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] |