15 lines
403 B
Factor
15 lines
403 B
Factor
USING: help.markup help.syntax ;
|
|
IN: singleton
|
|
|
|
HELP: SINGLETON:
|
|
{ $syntax "SINGLETON: class"
|
|
} { $values
|
|
{ "class" "a new tuple class to define" }
|
|
} { $description
|
|
"Defines a new tuple class with membership predicate name? and a default empty constructor that is the class name itself."
|
|
} { $examples
|
|
{ $example "SINGLETON: foo\nfoo ." "T{ foo f }" }
|
|
} { $see-also
|
|
POSTPONE: TUPLE:
|
|
} ;
|