factor: trim using lists

[factor.git] / extra / brainfuck / brainfuck.factor

diff --git a/extra/brainfuck/brainfuck.factor b/extra/brainfuck/brainfuck.factor
index a2e17aee850ca8926ac72b3e8e22389aa3408e12..045cf03c1269e0a1546c7b8ce0c9c2616d988b98 100644 (file)
--- a/extra/brainfuck/brainfuck.factor
+++ b/extra/brainfuck/brainfuck.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: accessors assocs command-line fry io io.encodings.binary
+USING: accessors assocs command-line io io.encodings.binary
 io.files io.streams.string kernel macros math namespaces
 peg.ebnf prettyprint sequences multiline ;
 
@@ -82,7 +82,7 @@ PRIVATE>
 
 : brainfuck-main ( -- )
     command-line get [
-        contents (run-brainfuck)
+        read-contents (run-brainfuck)
     ] [
         [ binary file-contents (run-brainfuck) ] each
     ] if-empty ;