changer: docs didnt get committed. my git game is really off...
parent
111bded865
commit
b5dcaa4be5
|
@ -0,0 +1,38 @@
|
||||||
|
! Copyright (C) 2015 Doug Coleman.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
USING: help.markup help.syntax kernel quotations strings ;
|
||||||
|
IN: changer
|
||||||
|
|
||||||
|
HELP: change:
|
||||||
|
{ $description "Syntax word for applying a quotation to a tuple slot." }
|
||||||
|
{ $examples
|
||||||
|
"Change a tuple slot:"
|
||||||
|
{ $example
|
||||||
|
"USING: prettyprint changer kernel math ;"
|
||||||
|
"IN: changer"
|
||||||
|
"TUPLE: nightclub count ;"
|
||||||
|
"T{ nightclub f 0 } [ 3 + ] change: count ."
|
||||||
|
"T{ nightclub { count 3 } }"
|
||||||
|
}
|
||||||
|
} ;
|
||||||
|
|
||||||
|
HELP: inline-changer
|
||||||
|
{ $values
|
||||||
|
{ "name" string }
|
||||||
|
{ "quot'" quotation }
|
||||||
|
}
|
||||||
|
{ $description "A macro that takes a slot name and applies the quotation to a slot of a tuple." } ;
|
||||||
|
|
||||||
|
ARTICLE: "changer" "Changer syntax"
|
||||||
|
"The " { $vocab-link "changer" } " vocabulary defines one word to change the values of a slot of tuple objects."
|
||||||
|
$nl
|
||||||
|
"Syntax word to change tuple slots:"
|
||||||
|
{ $subsections
|
||||||
|
POSTPONE: change:
|
||||||
|
}
|
||||||
|
"Macro to implement " { $link POSTPONE: change: } ":"
|
||||||
|
{ $subsections
|
||||||
|
inline-changer
|
||||||
|
} ;
|
||||||
|
|
||||||
|
ABOUT: "changer"
|
Loading…
Reference in New Issue