kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 01:57:09 +03:00
Code Issues Projects Releases Wiki Activity

fsharp: added some top level exception catching so that the repl wouldn't quit to CLI on errors.

Browse Source
This commit is contained in:
Peter Stephens 2016-12-26 17:05:32 -06:00
parent 3c823be2f8
commit df8c925a24
9 changed files with 81 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fsharp/step2_eval.fs
View File

@ -31,9 +31,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg)
| Error.ReaderError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =

12
fsharp/step3_env.fs
View File

@ -67,9 +67,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg)
| Error.ReaderError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =

12
fsharp/step4_if_fn_do.fs
View File

@ -103,9 +103,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg)
| Error.ReaderError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =

12
fsharp/step5_tco.fs
View File

@ -105,9 +105,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg)
| Error.ReaderError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =

12
fsharp/step6_file.fs
View File

@ -105,9 +105,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg)
| Error.ReaderError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =

11
fsharp/step7_quote.fs
View File

@ -125,8 +125,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =

11
fsharp/step8_macros.fs
View File

@ -153,8 +153,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =

11
fsharp/step9_try.fs
View File

@ -170,8 +170,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =

11
fsharp/stepA_mal.fs
View File

@ -171,8 +171,15 @@ module REPL
try
Some(eval env ast)
with
| Error.EvalError(msg) ->
printfn "%s" msg
| Error.EvalError(str)
| Error.ReaderError(str) ->
printfn "%s" str
None
| Error.MalError(node) ->
printfn "%s" (Printer.pr_str [node])
None
| ex ->
printfn "%s" (ex.Message)
None
let PRINT v =