From 702d34ca8637083829afe74a5fa9f869de15c044 Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Wed, 23 Oct 2013 19:33:13 -0700
Subject: [PATCH] Fix identifiers starting with t or f not parsing

---
 interp.hs | 1 +
 parser.hs | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/interp.hs b/interp.hs
index f9ec13e..f2d23e1 100644
--- a/interp.hs
+++ b/interp.hs
@@ -49,6 +49,7 @@ bind (env:xs) name value = (M.insert name value env):xs
 instance Show Value where
 	show (IntV i) = show i
 	show (StrV s) = show s
+	show (BoolV b) = show b
 	show (TupleV v) = "(" ++ intercalate "," (map show v) ++ ")"
 	show (ListV v) = show v
 	show (FnV _ _) = "<fn>"
diff --git a/parser.hs b/parser.hs
index 69db908..b3e8e24 100644
--- a/parser.hs
+++ b/parser.hs
@@ -154,7 +154,7 @@ expr' = try block
 	 <|> parens exprparser
 	 <|> listSeq exprparser ListConst
 	 <|> try ifExpr
-	 <|> bool
+	 <|> try bool
 	 <|> fmap Var identifier
 	 <|> fmap StrConst stringLiteral
 	 <|> fmap IntConst integer