base16/32/64/85/91: declare base>ch as fixnum.

[factor.git] / extra / base91 / base91.factor

diff --git a/extra/base91/base91.factor b/extra/base91/base91.factor
index 05a07842fe12e410372bc42f155221cfdbc5e682..fba9b49f6532a971c8f24882c0fcb63d6c8b185b 100644 (file)
--- a/extra/base91/base91.factor
+++ b/extra/base91/base91.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2019 John Benediktsson.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: base64.private byte-arrays kernel literals locals math
-sequences ;
+USING: base64.private byte-arrays kernel kernel.private
+literals locals math sequences ;
 IN: base91
 
 ERROR: malformed-base91 ;
@@ -20,7 +20,7 @@ CONSTANT: alphabet $[
 
 : base91>ch ( ch -- ch )
     $[ alphabet alphabet-inverse ] nth
-    [ malformed-base91 ] unless* ; inline
+    [ malformed-base91 ] unless* { fixnum } declare ; inline
 
 PRIVATE>