diff options
| author | Akshay <[email protected]> | 2020-10-16 18:22:30 +0100 |
|---|---|---|
| committer | Akshay <[email protected]> | 2020-10-16 18:22:30 +0100 |
| commit | 297b498acd205f0fcd68f3cdf7536b480cfac5e3 (patch) | |
| tree | ec66452d4f8a95dc042d940edd9ce3921e5dcf2c /src/Error | |
| parent | 55065d6f67cf4b2f0bfaae19b38157a4ca934a62 (diff) | |
add basic quasiquote and unquote behaviour
Diffstat (limited to 'src/Error')
| -rw-r--r-- | src/Error/Base.hs | 2 |
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 <> "`" | |||
| 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)!" |