From 7b023ad59df6729377ca9f1dc9f5e32dad38fc86 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 16 May 2020 10:13:10 -0700 Subject: [PATCH] brainfuck: inline (?) because it's not a language command. --- extra/brainfuck/brainfuck.factor | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/extra/brainfuck/brainfuck.factor b/extra/brainfuck/brainfuck.factor index ce9a46e78b..a2e17aee85 100644 --- 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 ]]