mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 13:55:55 +03:00
make rep handle mal exceptions
This commit is contained in:
parent
e9cd0923c2
commit
a8d4e41be6
@ -99,6 +99,7 @@ fun rep e s =
|
||||
| SyntaxError msg => "SYNTAX ERROR: " ^ msg
|
||||
| NotApplicable msg => "CANNOT APPLY: " ^ msg
|
||||
| NotDefined msg => "NOT DEFINED: " ^ msg
|
||||
| MalException e => "ERROR: " ^ (prStr e)
|
||||
| e => "ERROR: " ^ (exnMessage e)
|
||||
|
||||
val initEnv = ENV (NS (ref [])) |> bind coreNs
|
||||
|
Loading…
Reference in New Issue
Block a user