steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

2dip documented, but should we use it in our code? the official stance is "no comment"

db4
Doug Coleman 2008-05-23 16:47:35 -05:00
parent 2225d1b990
commit 79da16bc5a
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/kernel/kernel-docs.factor
View File

@ -97,6 +97,7 @@ $nl
"Certain shuffle words can also be expressed in terms of the spread combinators. Internalizing such identities can help with understanding and writing code using spread combinators:" "Certain shuffle words can also be expressed in terms of the spread combinators. Internalizing such identities can help with understanding and writing code using spread combinators:"
{ $code { $code
": dip [ ] bi* ;" ": dip [ ] bi* ;"
": 2dip [ ] [ ] tri* ;"
"" ""
": slip [ call ] [ ] bi* ;" ": slip [ call ] [ ] bi* ;"
": 2slip [ call ] [ ] [ ] tri* ;" ": 2slip [ call ] [ ] [ ] tri* ;"
@ -164,8 +165,9 @@ ARTICLE: "slip-keep-combinators" "The slip and keep combinators"
{ $subsection slip } { $subsection slip }
{ $subsection 2slip } { $subsection 2slip }
{ $subsection 3slip } { $subsection 3slip }
"The dip combinator invokes the quotation at the top of the stack, hiding the value underneath:" "The dip combinators invoke the quotation at the top of the stack, hiding the values underneath:"
{ $subsection dip } { $subsection dip }
{ $subsection 2dip }
"The keep combinators invoke a quotation which takes a number of values off the stack, and then they restore those values:" "The keep combinators invoke a quotation which takes a number of values off the stack, and then they restore those values:"
{ $subsection keep } { $subsection keep }
{ $subsection 2keep } { $subsection 2keep }
@ -876,6 +878,14 @@ HELP: dip
{ $code "[ foo bar ] dip" } { $code "[ foo bar ] dip" }
} ; } ;
HELP: 2dip
{ $values { "obj1" object } { "obj2" object } { "quot" quotation } }
{ $description "Calls " { $snippet "quot" } " with " { $snippet "obj1" } " and " { $snippet "obj2" } " hidden on the retain stack." }
{ $notes "The following are equivalent:"
{ $code ">r >r foo bar r> r>" }
{ $code "[ foo bar ] 2dip" }
} ;
HELP: while HELP: while
{ $values { "pred" "a quotation with stack effect " { $snippet "( -- ? )" } } { "body" "a quotation" } { "tail" "a quotation" } } { $values { "pred" "a quotation with stack effect " { $snippet "( -- ? )" } } { "body" "a quotation" } { "tail" "a quotation" } }
{ $description "Repeatedly calls " { $snippet "pred" } ". If it yields " { $link f } ", iteration stops, otherwise " { $snippet "body" } " is called. After iteration stops, " { $snippet "tail" } " is called." } { $description "Repeatedly calls " { $snippet "pred" } ". If it yields " { $link f } ", iteration stops, otherwise " { $snippet "body" } " is called. After iteration stops, " { $snippet "tail" } " is called." }