fix typo

2008-01-12 21:49:47 -10:00 · 2008-01-12 21:49:47 -10:00 · b14a0e54e4
parent f8a0d7403d
commit b14a0e54e4
1 changed files with 1 additions and 1 deletions
--- a/extra/math/miller-rabin/miller-rabin.factor
+++ b/extra/math/miller-rabin/miller-rabin.factor
@ -20,7 +20,7 @@ SYMBOL: trials

 : random-bits ( m -- n ) 2^ random ; foldable

-: factor-2s ( n -- r s )
+: factor-2s ( zero n -- r s )
    #! factor an even number into 2 ^ s * m
    dup even? [ -1 shift >r 1+ r> factor-2s ] when ;