*BFLoop interpretation

Ignore-this: 14fc1da96070f30ac79969bea872952c darcs-hash:20100209133350-09b00-a9927a029457af7f00161e77864682e53494da52
helvm · Feb 9, 2010 · ebbdb11 · ebbdb11
1 parent ca9a626
commit ebbdb11
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Brainfuck.hs b/Brainfuck.hs
@@ -79,7 +79,7 @@ evalBF (BFInput:is) ptr arr=getChar >>= writeArray arr ptr . fromIntegral . ord
 evalBF (BFOutput:is) ptr arr=readArray arr ptr >>= putChar . chr . fromIntegral >> evalBF is ptr arr
 evalBF is0@(BFLoop ss:is) ptr arr=do
     flag<-readArray arr ptr
-    if flag==0 then evalBF is ptr arr else evalBF ss ptr arr >> evalBF is0 ptr arr
+    if flag==0 then evalBF is ptr arr else evalBF (ss++is0) ptr arr
 
 
 detectLoop is=pprog is