FEAT: allow select on module

related to: Oldes/Rebol-issues#1380
Oldes · Nov 18, 2021 · cfe7e2a · cfe7e2a
1 parent 067fee5
commit cfe7e2a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/src/boot/actions.reb b/src/boot/actions.reb
@@ -225,7 +225,7 @@ find: action [
 
 select: action [
 	{Searches for a value; returns the value that follows, else none.}
-	series [series! port! map! object! none!]
+	series [series! port! map! object! module! none!]
 	value [any-type!]
 	/part {Limits the search to a given length or position}
 	length [number! series! pair!]

diff --git a/src/tests/units/module-test.r3 b/src/tests/units/module-test.r3
@@ -78,6 +78,11 @@ supplement system/options/module-paths join what-dir %units/files/
 			unset? :system/contexts/user/b
 			none? system/contexts/user/c
 		]
+	--test-- "select"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1380
+		m: module [] [a: 1]
+		--assert 1 = select m 'a
+		--assert none? select m 'b
 
 
 ===end-group===