7 lines
141 B
Factor
7 lines
141 B
Factor
|
USING: classes.singleton kernel io prettyprint ;
|
||
|
|
IN: singleton-demo
|
||
|
|
|
||
|
|
SINGLETON: bar
|
||
|
|
GENERIC: foo ( obj -- )
|
||
|
|
M: bar foo drop "Hello!" print ;
|