19 lines
463 B
Factor
Executable File
19 lines
463 B
Factor
Executable File
! Copyright (C) 2007 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel macros sequences slots words classes.tuple
|
|
quotations combinators accessors ;
|
|
IN: classes.tuple.lib
|
|
|
|
: reader-slots ( seq -- quot )
|
|
[ reader>> 1quotation ] map [ cleave ] curry ;
|
|
|
|
MACRO: >tuple< ( class -- )
|
|
all-slots rest-slice reader-slots ;
|
|
|
|
MACRO: >tuple*< ( class -- )
|
|
all-slots
|
|
[ slot-spec-name "*" tail? ] filter
|
|
reader-slots ;
|
|
|
|
|