2008-03-05 22:35:08 -05:00
|
|
|
! Copyright (C) 2007 Doug Coleman.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-03-07 21:02:58 -05:00
|
|
|
USING: classes.predicate kernel parser quotations words ;
|
2008-03-05 22:35:08 -05:00
|
|
|
IN: singleton
|
|
|
|
|
2008-03-07 21:02:58 -05:00
|
|
|
|
2008-03-05 22:35:08 -05:00
|
|
|
: SINGLETON:
|
2008-03-07 21:02:58 -05:00
|
|
|
\ word
|
2008-03-05 22:35:08 -05:00
|
|
|
CREATE-CLASS
|
2008-03-07 21:02:58 -05:00
|
|
|
dup [ eq? ] curry define-predicate-class ; parsing
|