factor/extra/singleton/singleton.factor

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

: define-singleton ( token -- )
    \ word swap create-class-in
    dup [ eq? ] curry define-predicate-class ;

: SINGLETON:
    scan define-singleton ; parsing

: SINGLETONS:
    ";" parse-tokens [ define-singleton ] each ; parsing
implement CREATE-CLASS with create-class add SINGLETONS: 2008-03-08 13:01:48 -05:00			`! Copyright (C) 2008 Doug Coleman.`
add singleton classes 2008-03-05 22:35:08 -05:00			`! See http://factorcode.org/license.txt for BSD license.`
implement CREATE-CLASS with create-class add SINGLETONS: 2008-03-08 13:01:48 -05:00			`USING: classes.predicate kernel namespaces parser quotations`
			`sequences words ;`
add singleton classes 2008-03-05 22:35:08 -05:00			`IN: singleton`

implement CREATE-CLASS with create-class add SINGLETONS: 2008-03-08 13:01:48 -05:00			`: define-singleton ( token -- )`
Update singleton for core changes 2008-03-11 04:36:09 -04:00			`\ word swap create-class-in`
implement CREATE-CLASS with create-class add SINGLETONS: 2008-03-08 13:01:48 -05:00			`dup [ eq? ] curry define-predicate-class ;`
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:`
implement CREATE-CLASS with create-class add SINGLETONS: 2008-03-08 13:01:48 -05:00			`scan define-singleton ; parsing`

			`: SINGLETONS:`
			`";" parse-tokens [ define-singleton ] each ; parsing`