From 217fbf90c4e632a298fbe8a31ef18b71c6bce2ce Mon Sep 17 00:00:00 2001 From: Akshay Date: Fri, 9 Oct 2020 18:06:19 +0530 Subject: mimic guile's errors --- src/Error.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Error.hs b/src/Error.hs index 276d3e2..165cc5c 100644 --- a/src/Error.hs +++ b/src/Error.hs @@ -21,7 +21,7 @@ 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 (UnknownFunction fn) = "Unknown reference to function: " ++ fn + show (UnknownFunction fn) = "Cannot apply function: " ++ fn show (TypeMismatch msg got) = "Type mismatch, expected " ++ msg ++ ", got: " ++ show got type LispResult = Either LispError -- cgit v1.2.3