From 138625178e2cde2834d7636546a22650f4606a79 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 6 Jun 2009 20:11:59 -0700
Subject: [PATCH] Add some test cases, remember to flush after running program.

---
 extra/brainfuck/brainfuck-tests.factor | 3 +++
 extra/brainfuck/brainfuck.factor       | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/extra/brainfuck/brainfuck-tests.factor b/extra/brainfuck/brainfuck-tests.factor
index 452e0a4bdc..4d35089832 100644
--- a/extra/brainfuck/brainfuck-tests.factor
+++ b/extra/brainfuck/brainfuck-tests.factor
@@ -4,6 +4,9 @@
 USING: brainfuck io.streams.string multiline tools.test ;
 
 
+[ "+" run-brainfuck ] must-infer
+[ "+" get-brainfuck ] must-infer
+
 ! Hello World!
 
 [ "Hello World!\n" ] [ <" ++++++++++[>+++++++>++++++++++>+++>+<<<<-]
diff --git a/extra/brainfuck/brainfuck.factor b/extra/brainfuck/brainfuck.factor
index 51c8a100df..4b4efd1ec3 100644
--- a/extra/brainfuck/brainfuck.factor
+++ b/extra/brainfuck/brainfuck.factor
@@ -67,7 +67,7 @@ code  = (loop|ops|unknown)*  => [[ compose-all ]]
 PRIVATE>
 
 MACRO: run-brainfuck ( code -- )
-    [ <brainfuck> ] swap parse-brainfuck [ drop ] 3append ;
+    [ <brainfuck> ] swap parse-brainfuck [ drop flush ] 3append ;
 
 : get-brainfuck ( code -- result ) 
     [ run-brainfuck ] with-string-writer ; inline