if-empty changes

[factor.git] / extra / sequences / lib / lib-docs.factor

diff --git a/extra/sequences/lib/lib-docs.factor b/extra/sequences/lib/lib-docs.factor
index b2e805304ed07914b069934a9ae7762d3846eef6..9975da00db05628c123072f7cd562aade7f9b3ec 100755 (executable)
--- a/extra/sequences/lib/lib-docs.factor
+++ b/extra/sequences/lib/lib-docs.factor
@@ -18,23 +18,3 @@ HELP: each-withn
 "passed to the quotation given to each-withn for each element in the sequence."\r
 } \r
 { $see-also map-withn } ;\r
-\r
-HELP: if-seq\r
-{ $values { "seq" sequence } { "quot1" quotation } { "quot2" quotation } }\r
-{ $description "Makes an implicit check if the sequence is empty.  If the sequence has any elements, " { $snippet "quot1" } " is called on it.  Otherwise, the empty sequence is dropped and " { $snippet "quot2" } " is called." }\r
-{ $example\r
-    "USING: kernel prettyprint sequences sequences.lib ;"\r
-    "{ 1 2 3 } [ sum ] [ \"empty sequence\" throw ] if-seq ."\r
-    "6"\r
-} ;\r
-\r
-HELP: if-empty\r
-{ $values { "seq" sequence } { "quot1" quotation } { "quot2" quotation } }\r
-{ $description "Makes an implicit check if the sequence is empty. An empty sequence is dropped and " { $snippet "quot1" } " is called. Otherwise, if the sequence has any elements, " { $snippet "quot2" } " is called on it." }\r
-{ $example\r
-    "USING: kernel prettyprint sequences sequences.lib ;"\r
-    "{ 1 2 3 } [ \"empty sequence\" ] [ sum ] if-empty ."\r
-    "6"\r
-} ;\r
-\r
-{ if-seq if-empty } related-words\r