2007-09-20 18:09:08 -04:00
|
|
|
USING: help.syntax help.markup kernel prettyprint sequences ;
|
2008-03-29 04:34:48 -04:00
|
|
|
IN: classes.tuple.lib
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
HELP: >tuple<
|
|
|
|
{ $values { "class" "a tuple class" } }
|
|
|
|
{ $description "Explodes the tuple so that tuple slots are on the stack in the order listed in the tuple." }
|
|
|
|
{ $example
|
2008-03-29 04:34:48 -04:00
|
|
|
"USING: kernel prettyprint classes.tuple.lib ;"
|
2008-04-26 03:01:43 -04:00
|
|
|
"IN: scratchpad"
|
2007-09-20 18:09:08 -04:00
|
|
|
"TUPLE: foo a b c ;"
|
2008-04-13 16:06:27 -04:00
|
|
|
"1 2 3 \\ foo boa \\ foo >tuple< .s"
|
2007-09-20 18:09:08 -04:00
|
|
|
"1\n2\n3"
|
|
|
|
}
|
|
|
|
{ $notes "Words using " { $snippet ">tuple<" } " may be compiled." }
|
|
|
|
{ $see-also >tuple*< } ;
|
|
|
|
|
|
|
|
HELP: >tuple*<
|
|
|
|
{ $values { "class" "a tuple class" } }
|
|
|
|
{ $description "Explodes the tuple so that tuple slots ending with '*' are on the stack in the order listed in the tuple." }
|
|
|
|
{ $example
|
2008-03-29 04:34:48 -04:00
|
|
|
"USING: kernel prettyprint classes.tuple.lib ;"
|
2008-04-26 03:01:43 -04:00
|
|
|
"IN: scratchpad"
|
2007-09-20 18:09:08 -04:00
|
|
|
"TUPLE: foo a bb* ccc dddd* ;"
|
2008-04-13 16:06:27 -04:00
|
|
|
"1 2 3 4 \\ foo boa \\ foo >tuple*< .s"
|
2007-09-20 18:09:08 -04:00
|
|
|
"2\n4"
|
|
|
|
}
|
|
|
|
{ $notes "Words using " { $snippet ">tuple*<" } " may be compiled." }
|
|
|
|
{ $see-also >tuple< } ;
|
|
|
|
|