FIX: DO script with error should throw the error and not just pass it as a result

Oldes · Oldes · commit f68e8555a244 · 2020-07-03T12:04:08.000+02:00
fixes: Oldes/Rebol-issues#2425 related to: Oldes/Rebol-issues#2375
diff --git a/src/mezz/sys-base.reb b/src/mezz/sys-base.reb
@@ -98,6 +98,7 @@ do*: func [
 		]
 		; Restore system/script and the dir
 		all [system/script: :scr  dir  change-dir dir]
+		if error? :value [ do :value ]
 		:value
 	]
 ]
diff --git a/src/tests/units/evaluation-test.r3 b/src/tests/units/evaluation-test.r3
@@ -81,8 +81,9 @@ Rebol [
 ===start-group=== "do script"
 	--test-- "script with error"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/2374
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2425
 		dir: what-dir
-		--assert error? do %units/files/error.r3
+		--assert error? try [do %units/files/error.r3]
 		--assert dir = what-dir
 
 	--test-- "script returning UNSET value"

Original file line number	Diff line number	Diff line change
`@@ -98,6 +98,7 @@ do*: func [`
`98`	`98`	`]`
`99`	`99`	`; Restore system/script and the dir`
`100`	`100`	`all [system/script: :scr dir change-dir dir]`
	`101`	`+ if error? :value [ do :value ]`
`101`	`102`	`:value`
`102`	`103`	`]`
`103`	`104`	`]`