2008-03-05 22:35:08 -05:00
|
|
|
! Copyright (C) 2007 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-03-06 11:18:46 -05:00
|
|
|
USING: kernel parser quotations prettyprint tuples words ;
|
2008-03-05 22:35:08 -05:00
|
|
|
IN: singleton
|
|
|
|
|
|
|
|
|
|
: SINGLETON:
|
|
|
|
|
CREATE-CLASS
|
|
|
|
|
dup { } define-tuple-class
|
2008-03-06 11:18:46 -05:00
|
|
|
dup unparse create-in reset-generic
|
2008-03-05 22:35:08 -05:00
|
|
|
dup construct-empty 1quotation define ; parsing
|
