default constructor was not sticking around after USEing a vocab

db4
Doug Coleman 2008-03-06 10:18:46 -06:00
parent 1b5d8d6a59
commit ca6fc5edc6
1 changed files with 2 additions and 1 deletions

View File

@ -1,9 +1,10 @@
! Copyright (C) 2007 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel parser quotations tuples words ;
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