From 5097a20545bbeeafec191f97e9d0ae3d215ada90 Mon Sep 17 00:00:00 2001 From: Akshay Date: Fri, 9 Oct 2020 18:52:45 +0530 Subject: add binary boolean operators --- src/Error.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Error.hs') diff --git a/src/Error.hs b/src/Error.hs index 165cc5c..5ba48bf 100644 --- a/src/Error.hs +++ b/src/Error.hs @@ -20,7 +20,7 @@ unwordsList = unwords . map show instance Show LispError where show (Parse e) = "Parser Error: " ++ show e show (BadForm s expr) = "Bad Form: " ++ s ++ ": " ++ show expr - show (ArgCount n es) = "Invalid arity, expected " ++ show n ++ ", got values: " ++ unwordsList es + show (ArgCount n es) = "Invalid arity, expected " ++ show n ++ ", got value(s): " ++ unwordsList es show (UnknownFunction fn) = "Cannot apply function: " ++ fn show (TypeMismatch msg got) = "Type mismatch, expected " ++ msg ++ ", got: " ++ show got -- cgit v1.2.3