factor: trim using lists

[factor.git] / extra / sorting / bubble / bubble.factor

diff --git a/extra/sorting/bubble/bubble.factor b/extra/sorting/bubble/bubble.factor
index 1099a05f3732e78d284069d7f4c7db4f251dcc87..445b0ebf50dbcc1da33505505fcb0d39e2090518 100644 (file)
--- a/extra/sorting/bubble/bubble.factor
+++ b/extra/sorting/bubble/bubble.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2014 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: kernel locals math math.order math.ranges sequences
+USING: kernel math math.order ranges sequences
 sequences.private ;
 
 IN: sorting.bubble
@@ -10,7 +10,7 @@ IN: sorting.bubble
 
 :: (bubble-sort!) ( seq quot: ( obj1 obj2 -- <=> ) -- )
     seq length 1 - [
-        f over [0,b) [| i |
+        f over [0..b) [| i |
             i i 1 + [ seq nth-unsafe ] bi@ 2dup quot call +gt+ =
             [ i 1 + i [ seq set-nth-unsafe ] bi-curry@ bi* 2drop i t ]
             [ 2drop ] if