11 lines
319 B
Factor
11 lines
319 B
Factor
! Copyright (C) 2007 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel parser quotations prettyprint tuples words ;
|
|
IN: singleton
|
|
|
|
: SINGLETON:
|
|
CREATE-CLASS
|
|
dup { } define-tuple-class
|
|
dup unparse create-in reset-generic
|
|
dup construct-empty 1quotation define ; parsing
|