singleton-class
Factor handbook » The language » Objects » Classes » Singleton classes

Prev:

singleton-class? ( object -- ? )

Vocabulary
classes.singleton

Class description
The class of singleton classes.

Definition

USING: classes.predicate classes.singleton.private kernel
sequences words ;

IN: classes.singleton

PREDICATE: singleton-class < predicate-class
    [ "predicate-definition" word-prop ]
    [ singleton-predicate-quot ] bi sequence= ;

Methods

USING: classes.algebra.private classes.singleton generic kernel
;

M: singleton-class (classes-intersect?)
    over singleton-class?
    [ eq? ] [
        M\ singleton-class (classes-intersect?)
        (call-next-method)
    ] if ;


USING: classes.singleton kernel sequences variants ;

M: singleton-class (match-branch) \ drop prefix ;


USING: classes.singleton html.templates.chloe.compiler
html.templates.chloe.components html.templates.chloe.syntax
kernel quotations ;

M: singleton-class component-tag
    [ "name" required-attr compile-attr ]
    [ literalize render-quot [code-with] ] bi* ;


USING: classes classes.singleton kernel ;

M: singleton-class instance? eq? ;


USING: classes.predicate.private classes.singleton
classes.singleton.private ;

M: singleton-class predicate-quot singleton-predicate-quot ;


USING: classes.singleton prettyprint.backend see.private ;

M: singleton-class see-class*
    \ SINGLETON: pprint-word pprint-word ;