singleton-predicate-quot ( class -- quot )

Vocabulary

classes.singleton.private

Inputs

class

an object

Outputs

quot

an object

Definition

USING: kernel ;

IN: classes.singleton.private

: singleton-predicate-quot ( class -- quot ) [ eq? ] curry ;