From 8ba98a86805c886719057f9df0d5a74c58c6dabd Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 9 Dec 2022 18:55:21 +0200
Subject: Add do builtin

---
 test/scripts/try1.milch | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 test/scripts/try1.milch

(limited to 'test/scripts/try1.milch')

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