From de4b2b6b0464eef43ac94787fedd21845cc2dd65 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 18 Oct 2008 02:47:47 +0000 Subject: Fix typo --- src/algebra/radix.spad.pamphlet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/algebra/radix.spad.pamphlet') 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] -- cgit v1.2.3