From 297b498acd205f0fcd68f3cdf7536b480cfac5e3 Mon Sep 17 00:00:00 2001 From: Akshay Date: Fri, 16 Oct 2020 22:52:30 +0530 Subject: add basic quasiquote and unquote behaviour --- src/Error/Base.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Error') 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)!" -- cgit v1.2.3