From 925b9e241b61012b65bc56c70dd25c4545077d8b Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 12 Mar 2008 10:57:57 -0600
Subject: [PATCH] combinators.cleave: add help
---
extra/combinators/cleave/cleave-docs.factor | 82 +++++++++++++++++++++
1 file changed, 82 insertions(+)
create mode 100644 extra/combinators/cleave/cleave-docs.factor
diff --git a/extra/combinators/cleave/cleave-docs.factor b/extra/combinators/cleave/cleave-docs.factor
new file mode 100644
index 0000000000..0c491b88b1
--- /dev/null
+++ b/extra/combinators/cleave/cleave-docs.factor
@@ -0,0 +1,82 @@
+
+USING: kernel quotations help.syntax help.markup ;
+
+IN: combinators.cleave
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+ARTICLE: "cleave-combinators" "Cleave Combinators"
+
+{ $subsection bi }
+{ $subsection tri }
+
+{ $notes
+ "From the Merriam-Webster Dictionary: "
+ $nl
+ { $strong "cleave" }
+ { $list
+ { $emphasis "To divide by or as if by a cutting blow" }
+ { $emphasis "To separate into distinct parts and especially into "
+ "groups having divergent views" } }
+ $nl
+ "The Joy programming language has a " { $emphasis "cleave" } " combinator." }
+
+;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+HELP: bi
+
+ { $values { "x" object }
+ { "p" quotation }
+ { "q" quotation }
+
+ { "p(x)" "p applied to x" }
+ { "q(x)" "q applied to x" } } ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+HELP: tri
+
+ { $values { "x" object }
+ { "p" quotation }
+ { "q" quotation }
+ { "r" quotation }
+
+ { "p(x)" "p applied to x" }
+ { "q(x)" "q applied to x" }
+ { "r(x)" "r applied to x" } } ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+ARTICLE: "spread-combinators" "Spread Combinators"
+
+{ $subsection bi* }
+{ $subsection tri* } ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+HELP: bi*
+
+ { $values { "x" object }
+ { "y" object }
+ { "p" quotation }
+ { "q" quotation }
+
+ { "p(x)" "p applied to x" }
+ { "q(y)" "q applied to y" } } ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+HELP: tri*
+
+ { $values { "x" object }
+ { "y" object }
+ { "z" object }
+ { "p" quotation }
+ { "q" quotation }
+ { "r" quotation }
+
+ { "p(x)" "p applied to x" }
+ { "q(y)" "q applied to y" }
+ { "r(z)" "r applied to z" } } ;