FIX: better SECURE error message with incorrectly formatted input block

fixes: Oldes/Rebol-issues#1255
Oldes · Mar 31, 2020 · 3f9ac42 · 3f9ac42
1 parent 40083e5
commit 3f9ac42
Showing 1 changed file with 3 additions and 1 deletion.
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
  ]