factor: trim using lists

[factor.git] / extra / smalltalk / library / library.factor

diff --git a/extra/smalltalk/library/library.factor b/extra/smalltalk/library/library.factor
index d7bc1e65708670703a4283cf4937cb892d4463b1..6958b915d644477e468b64f4f1e744092a7c1534 100644 (file)
--- a/extra/smalltalk/library/library.factor
+++ b/extra/smalltalk/library/library.factor
@@ -1,8 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel present io math sequences assocs math.ranges
-math.order fry tools.time locals smalltalk.selectors
-smalltalk.ast smalltalk.classes ;
+USING: kernel present io math sequences assocs ranges
+math.order tools.time smalltalk.selectors smalltalk.ast ;
 IN: smalltalk.library
 
 SELECTOR: print
@@ -76,9 +75,9 @@ M:: object selector-do: ( quot receiver -- nil )
 SELECTOR: to:
 SELECTOR: to:do:
 
-M: object selector-to: swap [a,b] ;
+M: object selector-to: swap [a..b] ;
 M:: object selector-to:do: ( to quot from -- nil )
-    from to [a,b] [ quot call( i -- result ) drop ] each nil ;
+    from to [a..b] [ quot call( i -- result ) drop ] each nil ;
 
 SELECTOR: value
 SELECTOR: value: