Bugfix in while loop.......

1 files changed, 1 insertions, 1 deletions

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)