24 lines
768 B
Factor
24 lines
768 B
Factor
USING: help.markup help.syntax kernel words ;
|
|
IN: classes.singleton
|
|
|
|
ARTICLE: "singletons" "Singleton classes"
|
|
"A singleton is a class with only one instance and with no state."
|
|
{ $subsection POSTPONE: SINGLETON: }
|
|
{ $subsection POSTPONE: SINGLETONS: }
|
|
{ $subsection define-singleton-class }
|
|
"The set of all singleton classes is itself a class:"
|
|
{ $subsection singleton-class? }
|
|
{ $subsection singleton-class } ;
|
|
|
|
HELP: define-singleton-class
|
|
{ $values { "word" "a new word" } }
|
|
{ $description
|
|
"Defines a singleton class. This is the run-time equivalent of " { $link POSTPONE: SINGLETON: } "." } ;
|
|
|
|
{ POSTPONE: SINGLETON: define-singleton-class } related-words
|
|
|
|
HELP: singleton-class
|
|
{ $class-description "The class of singleton classes." } ;
|
|
|
|
ABOUT: "singletons"
|