FEAT: allow try to accept code as a paren!

Oldes · Jun 29, 2022 · 9ea8105 · 9ea8105
1 parent 6ac01e3
commit 9ea8105
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/boot/natives.reb b/src/boot/natives.reb
@@ -307,7 +307,7 @@ trace: native [
 
 try: native [
 	{Tries to DO a block and returns its value or an error.}
-	block [block!]
+	block [block! paren!]
 	/except "On exception, evaluate this code block"
 	code [block! any-function!]
 ]

diff --git a/src/tests/units/error-test.r3 b/src/tests/units/error-test.r3
@@ -8,6 +8,13 @@ Rebol [
 
 ~~~start-file~~~ "ERROR"
 
+===start-group=== "TRY"
+	--test-- "basic TRY"
+	--assert 2 = try [1 + 1]
+	--assert 2 = try first [(1 + 1)]
+===end-group===
+
+
 ===start-group=== "make error!"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/835
 	;@@ https://github.com/Oldes/Rebol-issues/issues/1593