FEAT: implemented attempt/safer to catch also thrown exceptions

resolves: Oldes/Rebol-issues#583
resolves: Oldes/Rebol-issues#1506

Author: Oldes

src/boot/natives.reb

@@ -56,6 +56,7 @@ assert: native [
 attempt: native [
 	"Tries to evaluate a block and returns result or NONE on error."
 	block [block!]
+	/safer "Capture all possible errors and exceptions"
 ]
 
 break: native [

src/core/n-control.c

@@ -352,7 +352,7 @@ enum {
 ***********************************************************************/
 {
 	Try_Block(VAL_SERIES(D_ARG(1)), VAL_INDEX(D_ARG(1)));
-	if (IS_ERROR(DS_NEXT) && !IS_THROW(DS_NEXT)) return R_NONE;
+	if (IS_ERROR(DS_NEXT) && (D_REF(2) || !IS_THROW(DS_NEXT))) return R_NONE;
 	return R_TOS1;
 }
 

src/tests/units/evaluation-test.r3

@@ -224,12 +224,6 @@ Rebol [
 ===end-group===
 
 
-===start-group=== "attempt"
-	--test-- "issue-41"
-		--assert none? attempt [2 / 0] ;@@ https://github.com/Oldes/Rebol-issues/issues/41
-
-===end-group===
-
 ===start-group=== "reduce"
 
 	--test-- "reduce-1"
@@ -772,6 +766,29 @@ Rebol [
 ===end-group===
 
 
+===start-group=== "attempt"
+	--test-- "issue-41"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/41
+		--assert none? attempt [2 / 0]
+
+	--test-- "attempt/safer"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/583
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1506
+		--assert none? attempt/safer [break    'not-reached]
+		--assert none? attempt/safer [continue 'not-reached]
+		--assert none? attempt/safer [exit     'not-reached]
+		--assert none? attempt/safer [return 1 'not-reached]
+		--assert none? attempt/safer [throw 1  'not-reached]
+	--test-- "try/all [attempt]"
+		--assert error? try/all [attempt [break    'not-reached]]
+		--assert error? try/all [attempt [continue 'not-reached]]
+		--assert error? try/all [attempt [exit     'not-reached]]
+		--assert error? try/all [attempt [return 1 'not-reached]]
+		--assert error? try/all [attempt [throw 1  'not-reached]]
+
+===end-group===
+
+
 ===start-group=== "CATCH"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/1518
 	;@@ https://github.com/Oldes/Rebol-issues/issues/1520