FIX: Throw error when secure policy is set to throw instead of quit…

…ting
Oldes · Feb 19, 2025 · d070502 · d070502
1 parent 9a33e77
commit d070502
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mezz/mezz-secure.reb b/src/mezz/mezz-secure.reb
@@ -69,7 +69,7 @@ secure: function/with [
 
 	; Check if SECURE is secured:
 	if pol-obj/secure <> 0.0.0 [
-		if pol-obj/secure == 'throw [cause-error 'access 'security :policy]
+		if pol-obj/secure == 2.2.2 [cause-error 'access 'security :policy]
 		quit/return 101 ; an arbitrary code
 	]