rename singletons
parent
7cb9be06e5
commit
9e32613f5c
|
@ -1,5 +1,5 @@
|
|||
USING: help.markup help.syntax kernel words ;
|
||||
IN: singleton
|
||||
IN: classes.singleton
|
||||
|
||||
HELP: SINGLETON:
|
||||
{ $syntax "SINGLETON: class"
|
|
@ -1,5 +1,5 @@
|
|||
USING: kernel singleton tools.test prettyprint io.streams.string ;
|
||||
IN: singleton.tests
|
||||
IN: classes.singleton.tests
|
||||
|
||||
[ ] [ SINGLETON: bzzt ] unit-test
|
||||
[ t ] [ bzzt bzzt? ] unit-test
|
||||
|
@ -9,4 +9,4 @@ GENERIC: zammo ( obj -- )
|
|||
[ "yes!" ] [ bzzt zammo ] unit-test
|
||||
[ ] [ SINGLETON: omg ] unit-test
|
||||
[ t ] [ omg singleton? ] unit-test
|
||||
[ "USING: singleton ;\nIN: singleton.tests\nSINGLETON: omg\n" ] [ [ omg see ] with-string-writer ] unit-test
|
||||
[ "USING: singleton ;\nIN: classes.singleton.tests\nSINGLETON: omg\n" ] [ [ omg see ] with-string-writer ] unit-test
|
|
@ -3,8 +3,7 @@
|
|||
USING: classes.predicate kernel namespaces parser quotations
|
||||
sequences words prettyprint prettyprint.backend prettyprint.sections
|
||||
compiler.units classes ;
|
||||
USE: tools.walker
|
||||
IN: singleton
|
||||
IN: classes.singleton
|
||||
|
||||
PREDICATE: singleton < predicate-class
|
||||
[ "predicate-definition" word-prop ]
|
Loading…
Reference in New Issue