! (c)2009 Slava Pestov & Joe Groff, see BSD license
-USING: combinators.short-circuit fry make math kernel sequences ;
+USING: combinators.short-circuit make math kernel sequences ;
IN: sequences.squish
: (squish) ( seq quot: ( obj -- ? ) -- )
: squish-strings ( seq -- seq' )
[ { [ sequence? ] [ integer? not ] } 1&& ] "" squish ;
-