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