From 8ba98a86805c886719057f9df0d5a74c58c6dabd Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Fri, 9 Dec 2022 18:55:21 +0200 Subject: Add do builtin --- test/scripts/do1.milch | 7 +++++++ test/scripts/try1.milch | 8 ++++++++ 2 files changed, 15 insertions(+) create mode 100644 test/scripts/do1.milch create mode 100644 test/scripts/try1.milch (limited to 'test/scripts') diff --git a/test/scripts/do1.milch b/test/scripts/do1.milch new file mode 100644 index 0000000..d66c122 --- /dev/null +++ b/test/scripts/do1.milch @@ -0,0 +1,7 @@ +(let foo + (do (+ 1 2) + (- 10 2) + "foo")) + +foo +; => "foo" diff --git a/test/scripts/try1.milch b/test/scripts/try1.milch new file mode 100644 index 0000000..32abba2 --- /dev/null +++ b/test/scripts/try1.milch @@ -0,0 +1,8 @@ +(import "core/common") +(import "core/result") + +(let safe-read-file! (Result/safe! read-file!)) + +; calls read-file! and wraps the result in a Result/ok on success +; in case of error, calls Result/ex on the error string +(safe-read-file! "does-not-exist.txt") -- cgit v1.3