factor: trim using lists

[factor.git] / extra / sequences / squish / squish.factor

diff --git a/extra/sequences/squish/squish.factor b/extra/sequences/squish/squish.factor
index 6a7ffb49f8c4f5a222baa0d8721f27924a515de5..34f0e3aec802ef41ff257a8aa1966426de8512a4 100644 (file)
--- a/extra/sequences/squish/squish.factor
+++ b/extra/sequences/squish/squish.factor
@@ -1,4 +1,5 @@
-USING: combinators.short-circuit fry make math kernel sequences ;
+! (c)2009 Slava Pestov & Joe Groff, see BSD license
+USING: combinators.short-circuit make math kernel sequences ;
 IN: sequences.squish
 
 : (squish) ( seq quot: ( obj -- ? ) -- )
@@ -9,4 +10,3 @@ IN: sequences.squish
 
 : squish-strings ( seq -- seq' )
     [ { [ sequence? ] [ integer? not ] } 1&& ] "" squish ;
-