Fixing basis -> extra dependencies

[factor.git] / basis / state-parser / state-parser.factor

diff --git a/basis/state-parser/state-parser.factor b/basis/state-parser/state-parser.factor
index ee5a5113bfb1ac0d23b442b9ab9454bc8dec2069..15c83bf73afd2fea16abf25ddd573f56c88826be 100644 (file)
--- a/basis/state-parser/state-parser.factor
+++ b/basis/state-parser/state-parser.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.\r
 USING: io io.streams.string kernel math namespaces sequences\r
 strings circular prettyprint debugger ascii sbufs fry summary\r
-accessors sequences.lib ;\r
+accessors ;\r
 IN: state-parser\r
 \r
 ! * Basic underlying words\r
@@ -120,7 +120,7 @@ M: not-enough-characters summary ( obj -- str )
 \r
 : take ( n -- string )\r
     [ 1- ] [ <sbuf> ] bi [\r
-        '[ drop get-char [ next , push f ] [ t ] if* ] attempt-each drop\r
+        '[ drop get-char [ next , push f ] [ t ] if* ] contains? drop\r
     ] keep get-char [ over push ] when* >string ;\r
 \r
 : pass-blank ( -- )\r