diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-18 02:47:47 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-18 02:47:47 +0000 |
| commit | de4b2b6b0464eef43ac94787fedd21845cc2dd65 (patch) | |
| tree | f1dbf1a5ea83d113ca7a37fd1adecaf467d84138 | |
| parent | 71b1b370927b8696794927a670520919944a645d (diff) | |
| download | open-axiom-de4b2b6b0464eef43ac94787fedd21845cc2dd65.tar.gz | |
Fix typo
| -rw-r--r-- | src/algebra/radix.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/radix.spad.pamphlet b/src/algebra/radix.spad.pamphlet index 5ae58510..3fb80cd2 100644 --- a/src/algebra/radix.spad.pamphlet +++ b/src/algebra/radix.spad.pamphlet @@ -175,7 +175,7 @@ RadixExpansion(bb): Exports == Implementation where intgroup(li: List I): OUT == empty? li => error "intgroup needs non-null list" empty? rest li => - abs bb <= 36 intToExpr first(li) + abs bb <= 36 => intToExpr first(li) first(li)::OUT abs bb <= 10 => hconcat [i :: OUT for i in li] abs bb <= 36 => hconcat [intToExpr(i) for i in li] |