diff options
| -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] |