factor/extra/singleton/singleton.factor

! Copyright (C) 2007 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: classes.predicate kernel parser quotations words ;
IN: singleton


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

rewrite singletons to be predicate classes instead of tuples 2008-03-07 21:02:58 -05:00
add singleton classes 2008-03-05 22:35:08 -05:00			`: SINGLETON:`
rewrite singletons to be predicate classes instead of tuples 2008-03-07 21:02:58 -05:00			`\ word`
add singleton classes 2008-03-05 22:35:08 -05:00			`CREATE-CLASS`
rewrite singletons to be predicate classes instead of tuples 2008-03-07 21:02:58 -05:00			`dup [ eq? ] curry define-predicate-class ; parsing`