From e156405d9587db1e509f0b882848eb5c44f7f42a Mon Sep 17 00:00:00 2001
From: Oldes Huhuman <oldes.huhuman@gmail.com>
Date: Wed, 24 Apr 2024 19:20:51 +0200
Subject: [PATCH] FEAT: allow path value protection resolves:
https://github.com/Oldes/Rebol-issues/issues/1747
---
src/core/n-control.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/core/n-control.c b/src/core/n-control.c
index 1304b79e40..26f3709f8c 100644
--- a/src/core/n-control.c
+++ b/src/core/n-control.c
@@ -224,7 +224,7 @@ enum {
if (D_REF(6)) SET_FLAG(flags, PROT_LOCK);
- if (IS_WORD(val) || IS_PATH(val)) {
+ if (IS_WORD(val) || (ANY_PATH(val) && !D_REF(4))) {
Protect_Word_Value(val, flags); // will unmark if deep
return R_ARG1;
}