io.random: Fix off-by-one error.

2012-10-23 16:55:17 -07:00 · 2012-10-23 16:55:17 -07:00 · 633e4531a2
parent 4a93f5bc7f
commit 633e4531a2
1 changed files with 1 additions and 1 deletions
--- a/extra/io/random/random.factor
+++ b/extra/io/random/random.factor
@ -21,7 +21,7 @@ PRIVATE>
    [| line line# |
        line# random :> r
        r n < [
-            line# n <
+            line# n <=
            [ line r accum insert-nth! ]
            [ line r accum set-nth ] if
        ] when