Bugfix in while loop.......

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)