From f465dadef3f658e769a0ff05db1cf3a0f08d239c Mon Sep 17 00:00:00 2001
From: tomsmeding <hallo@tomsmeding.nl>
Date: Sun, 4 Oct 2015 19:21:44 +0200
Subject: Bugfix in while loop.......

---
 ex/primes.rip | 2 +-
 rip.hs        | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ex/primes.rip b/ex/primes.rip
index 1f30493..e7d8b0d 100644
--- a/ex/primes.rip
+++ b/ex/primes.rip
@@ -1 +1 @@
-21W[D1W[dSDD4RDD4r5rqms]P1EI[DO9io]i1]
+21W[D1W[dSDD4RDD4r5rqms]1EI[DO9io]i1]
diff --git a/rip.hs b/rip.hs
index 14e7f6f..c03330c 100644
--- a/rip.hs
+++ b/rip.hs
@@ -207,7 +207,7 @@ rip' code@(x:xs) fns st = do
                             newstack <- rip' inblock fns st
                             if head newstack /= 0
                                 then doloop $ tail newstack
-                                else return newstack
+                                else return $ tail newstack
                     in if head st /= 0
                         then do
                             newstack <- doloop (tail st)
-- 
cgit v1.2.3-54-g00ecf