sequences: Add examples for member? word.

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index 8ec71149c3dfebefdd4d88d8891971513d21babd..7964044e6f7acbd30e86c30fd302d7d98c33d354 100644 (file)
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -522,6 +522,20 @@ HELP: last-index-from
 HELP: member?
 { $values { "elt" object } { "seq" sequence } { "?" boolean } }
 { $description "Tests if the sequence contains an element equal to the object." }
+{ $examples
+    "Is a letter in a string:"
+    { $example
+        "USING: sequences prettyprint ;"
+        """CHAR: a "abc" member? ."""
+        "t"
+    } $nl
+    "Is a number in a sequence:"
+    { $example
+        "USING: sequences prettyprint ;"
+        "1 { 1 2 3 } member? ."
+        "t"
+    }
+}
 { $notes "This word uses equality comparison (" { $link = } ")." } ;
 
 HELP: member-eq?