brainfuck: inline (?) because it's not a language command.

diff --git a/extra/brainfuck/brainfuck.factor b/extra/brainfuck/brainfuck.factor
index ce9a46e78b1ff68f6607d51654077443139197fc..a2e17aee850ca8926ac72b3e8e22389aa3408e12 100644 (file)
--- a/extra/brainfuck/brainfuck.factor
+++ b/extra/brainfuck/brainfuck.factor
@@ -26,9 +26,6 @@ TUPLE: brainfuck pointer memory ;
 : (-) ( brainfuck n -- brainfuck )
     [ get-memory ] dip - 255 bitand set-memory ;
 
-: (?) ( brainfuck -- brainfuck t/f )
-    get-memory zero? not ;
-
 : (.) ( brainfuck -- brainfuck )
     get-memory write1 ;
 
@@ -62,7 +59,7 @@ space    = [ \t\n\r]+ => [[ [ ] ]]
 unknown  = (.)  => [[ "Invalid input" throw ]]
 
 ops   = inc-ptr|dec-ptr|inc-mem|dec-mem|output|input|debug|space
-loop  = "[" {loop|ops}+ "]" => [[ second compose-all '[ [ (?) ] _ while ] ]]
+loop  = "[" {loop|ops}+ "]" => [[ second compose-all '[ [ get-memory zero? ] _ until ] ]]
 
 code  = (loop|ops|unknown)*  => [[ compose-all ]]