FIX: resolve/all bypassing protect/hide

resolves: Oldes/Rebol-issues#1769

src/core/c-frame.c

@@ -735,7 +735,7 @@
 	// Done by marking all source words (in bind table):
 	words = FRM_WORDS(source)+1;
 	for (n = 1; NOT_END(words); n++, words++) {
-		if (IS_NONE(only_words) || binds[VAL_BIND_CANON(words)])
+		if ((IS_NONE(only_words) || binds[VAL_BIND_CANON(words)]) && !VAL_HIDDEN(words))
 			binds[VAL_WORD_CANON(words)] = n;
 	}
 

src/include/sys-value.h

@@ -89,6 +89,7 @@ enum {
 #define VAL_CLR_LINE(v)		VAL_CLR_OPT((v), OPTS_LINE)
 
 #define VAL_PROTECTED(v)	VAL_GET_OPT((v), OPTS_LOCK)
+#define VAL_HIDDEN(v)	    VAL_GET_OPT((v), OPTS_HIDE)
 
 // Used for datatype-dependent data (e.g. op! stores action!)
 #define VAL_GET_EXT(v)		((v)->flags.flags.exts)

src/tests/units/protect-test.r3

@@ -103,6 +103,13 @@ Rebol [
 	;@@ https://github.com/Oldes/Rebol-issues/issues/1137
 		--assert 0 = length? trim make object! [f: 1 protect/hide 'f]
 		--assert 0 = length? trim make object! [f: none protect/hide 'f]
+	--test-- "resolve/all hidden"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1769
+		con1: context [a: 1 b: 2 c: "hidden" protect/hide 'c]
+		con2: context [a: 9 b: 8 c: none]
+		--assert object? resolve/all con2 con
+		--assert all [con2/a = 1 con2/b = 2]
+		--assert none? con2/c ;- not holding "hidden"!
 
 ===end-group===