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

combinators.tuple-docs: add example code for make-tuple

char-rename
Alexander Iljin 2016-11-02 01:56:18 +03:00 committed by John Benediktsson
parent 4ee980aa98
commit 140d3c88c0
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/combinators/tuple/tuple-docs.factor
View File

@ -22,7 +22,19 @@ HELP: make-tuple
{ "x" object } { "class" class } { "assoc" "a list of " { $link string } "/" { $link quotation } " pairs" } { "x" object } { "class" class } { "assoc" "a list of " { $link string } "/" { $link quotation } " pairs" }
{ "tuple" tuple } { "tuple" tuple }
} }
{ $description "Constructs a " { $link tuple } " of " { $snippet "class" } " by calling the quotations making up the values of " { $snippet "assoc" } " on " { $snippet "x" } ", assigning the result of each call to the slot named by the corresponding key. The quotations must have the effect " { $snippet "( x -- slot-value )" } ". The order in which the quotations are called is undefined." } ; { $description "Constructs a " { $link tuple } " of " { $snippet "class" } " by calling the quotations making up the values of " { $snippet "assoc" } " on " { $snippet "x" } ", assigning the result of each call to the slot named by the corresponding key. The quotations must have the effect " { $snippet "( x -- slot-value )" } ". The order in which the quotations are called is undefined." }
{ $examples
{ $example
"USING: combinators.tuple math prettyprint ;"
"IN: scratchpad"
"TUPLE: demo x y z ;"
"5 demo {"
" { \"x\" [ 10 + ] }"
" { \"y\" [ 100 / ] }"
"} make-tuple ."
"T{ demo { x 15 } { y 1/20 } }"
}
} ;
HELP: nmake-tuple HELP: nmake-tuple
{ $values { $values