aboutsummaryrefslogtreecommitdiff
path: root/rip.hs
diff options
context:
space:
mode:
authortomsmeding <tom.smeding@gmail.com>2016-01-08 22:18:22 +0100
committertomsmeding <tom.smeding@gmail.com>2016-01-08 22:18:22 +0100
commit73725d0f4d1eea724829104b4483aa1585a31afd (patch)
tree40aca60a98516a4ca2a238eb1baa4da3f08cd0b3 /rip.hs
parent534cd47f7488d7081d68c641b28a7c30c93643b9 (diff)
meta.rip stub
Diffstat (limited to 'rip.hs')
-rw-r--r--rip.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/rip.hs b/rip.hs
index 3efd081..6660c76 100644
--- a/rip.hs
+++ b/rip.hs
@@ -19,7 +19,7 @@ type Stackelem = Integer
c_ripmode :: Bool
-c_ripmode = True
+c_ripmode = False
c_debugmode :: Bool
c_debugmode = False
@@ -332,7 +332,7 @@ rip' code@(x:xs) fns conns st = do
'\'' -> rip' (tail xs) fns conns $ ordI (head xs) : st
'$' -> do
- (putStrLn . intercalate " " . map show . reverse) st
+ putStrLn $ '[' : ((intercalate " " . map show . reverse) st) ++ "]"
rip' xs fns conns st
c | isSpace c ->