From f30a59ce1924009cd5723bfad87f84313fa47fe6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 7 Jun 2009 07:52:07 -0700
Subject: [PATCH] brainfuck: Remove concept of operations now that it is
 compiled.

---
 extra/brainfuck/brainfuck.factor | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

diff --git a/extra/brainfuck/brainfuck.factor b/extra/brainfuck/brainfuck.factor
index 6e7f158165..f22cda4fa3 100644
--- a/extra/brainfuck/brainfuck.factor
+++ b/extra/brainfuck/brainfuck.factor
@@ -8,13 +8,10 @@ IN: brainfuck
 
 <PRIVATE
 
-TUPLE: brainfuck pointer memory ops ;
+TUPLE: brainfuck pointer memory ;
 
 : <brainfuck> ( -- brainfuck ) 
-    0 H{ } clone 0 brainfuck boa ;
-
-: max-ops? ( brainfuck -- brainfuck ) 
-    [ 1 + dup 10000 > [ "Max operations" throw ] when ] change-ops ;
+    0 H{ } clone brainfuck boa ;
 
 : get-memory ( brainfuck -- brainfuck value )
     dup [ pointer>> ] [ memory>> ] bi at 0 or ;
@@ -23,25 +20,25 @@ TUPLE: brainfuck pointer memory ops ;
     over [ pointer>> ] [ memory>> ] bi set-at ;
 
 : (+) ( brainfuck -- brainfuck )
-    get-memory 1 + 255 bitand set-memory max-ops? ;
+    get-memory 1 + 255 bitand set-memory ;
 
 : (-) ( brainfuck -- brainfuck )
-    get-memory 1 - 255 bitand set-memory max-ops? ;
+    get-memory 1 - 255 bitand set-memory ;
 
 : (?) ( brainfuck -- brainfuck t/f )
-    max-ops? get-memory 0 = not ;
+    get-memory 0 = not ;
 
 : (.) ( brainfuck -- brainfuck )
-    get-memory 1string write max-ops? ;
+    get-memory 1string write ;
 
 : (,) ( brainfuck -- brainfuck )
-    read1 set-memory max-ops? ;
+    read1 set-memory ;
 
 : (>) ( brainfuck -- brainfuck )
-    [ 1 + ] change-pointer max-ops? ;
+    [ 1 + ] change-pointer ;
 
 : (<) ( brainfuck -- brainfuck ) 
-    [ 1 - ] change-pointer max-ops? ;
+    [ 1 - ] change-pointer ;
 
 : compose-all ( seq -- quot ) 
     [ ] [ compose ] reduce ;