FIX: better SECURE error message with incorrectly formatted input block

Oldes · Oldes · commit 3f9ac42c7e67 · 2020-03-31T18:52:20.000+02:00
fixes: Oldes/Rebol-issues#1255
diff --git a/src/mezz/mezz-secure.r b/src/mezz/mezz-secure.r
@@ -82,7 +82,9 @@ secure: function/with [
 
 	; Set each policy target separately:
 	foreach [target pol] policy [
-		assert/type [target [word! file! url!] pol [block! word! integer!]]
+		try/except [
+			assert/type [target [word! file! url!] pol [block! word! integer!]]
+		][	cause-error 'access 'security-error reduce [target pol] ]
 		set-policy target make-policy target pol pol-obj
 	]
 

Original file line number	Diff line number	Diff line change
`@@ -82,7 +82,9 @@ secure: function/with [`
`82`	`82`
`83`	`83`	`; Set each policy target separately:`
`84`	`84`	`foreach [target pol] policy [`
`85`		`- assert/type [target [word! file! url!] pol [block! word! integer!]]`
	`85`	`+ try/except [`
	`86`	`+ assert/type [target [word! file! url!] pol [block! word! integer!]]`
	`87`	`+ ][ cause-error 'access 'security-error reduce [target pol] ]`
`86`	`88`	`set-policy target make-policy target pol pol-obj`
`87`	`89`	`]`
`88`	`90`