steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Doug Coleman 2012-10-23 16:55:17 -07:00
parent 4a93f5bc7f
commit 633e4531a2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/io/random/random.factor
View File

@ -21,7 +21,7 @@ PRIVATE>
[| line line# | [| line line# |
line# random :> r line# random :> r
r n < [ r n < [
line# n < line# n <=
[ line r accum insert-nth! ] [ line r accum insert-nth! ]
[ line r accum set-nth ] if [ line r accum set-nth ] if
] when ] when