1 files changed, 1 insertions, 1 deletions
diff --git a/src/Error/Base.hs b/src/Error/Base.hs
index ef32d52..747904a 100644
--- a/src/Error/Base.hs
+++ b/src/Error/Base.hs
@@ -24,7 +24,7 @@ literal v = "`" <> v <> "`"
 instance Show LispError where
    show (Parse e)              = "Parser Error: " ++ show e
-    show (BadForm s expr)       = "Bad Form: " ++ literal s ++ ": " ++ show expr
+    show (BadForm s expr)       = "Bad Form: " ++ s ++ ": " ++ show expr
    -- TODO: clean this up
    show (ArgCount fn n es)
      | null es = "Invalid arity, " ++ literal fn ++ " expects " ++ show n ++ " or more expression(s)!"

diff --git a/src/Error/Base.hs b/src/Error/Base.hs index ef32d52..747904a 100644 --- a/src/Error/Base.hs +++ b/src/Error/Base.hs
@@ -24,7 +24,7 @@ literal v = "`" <> v <> "`"
24		24
25	instance Show LispError where	25	instance Show LispError where
26	show (Parse e) = "Parser Error: " ++ show e	26	show (Parse e) = "Parser Error: " ++ show e
27	show (BadForm s expr) = "Bad Form: " ++ literal s ++ ": " ++ show expr	27	show (BadForm s expr) = "Bad Form: " ++ s ++ ": " ++ show expr
28	-- TODO: clean this up	28	-- TODO: clean this up
29	show (ArgCount fn n es)	29	show (ArgCount fn n es)
30	\| null es = "Invalid arity, " ++ literal fn ++ " expects " ++ show n ++ " or more expression(s)!"	30	\| null es = "Invalid arity, " ++ literal fn ++ " expects " ++ show n ++ " or more expression(s)!"