default constructor was not sticking around after USEing a vocab
parent
1b5d8d6a59
commit
ca6fc5edc6
|
@ -1,9 +1,10 @@
|
||||||
! Copyright (C) 2007 Doug Coleman.
|
! Copyright (C) 2007 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel parser quotations tuples words ;
|
USING: kernel parser quotations prettyprint tuples words ;
|
||||||
IN: singleton
|
IN: singleton
|
||||||
|
|
||||||
: SINGLETON:
|
: SINGLETON:
|
||||||
CREATE-CLASS
|
CREATE-CLASS
|
||||||
dup { } define-tuple-class
|
dup { } define-tuple-class
|
||||||
|
dup unparse create-in reset-generic
|
||||||
dup construct-empty 1quotation define ; parsing
|
dup construct-empty 1quotation define ; parsing
|
||||||
|
|
Loading…
Reference in New Issue