new accessors

db4
Doug Coleman 2008-08-30 21:58:34 -05:00
parent 6d1fbd3e22
commit 843eb15522
1 changed files with 2 additions and 2 deletions

View File

@ -1,11 +1,11 @@
! Copyright (C) 2007 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel macros sequences slots words classes.tuple
quotations combinators ;
quotations combinators accessors ;
IN: classes.tuple.lib
: reader-slots ( seq -- quot )
[ slot-spec-reader 1quotation ] map [ cleave ] curry ;
[ reader>> 1quotation ] map [ cleave ] curry ;
MACRO: >tuple< ( class -- )
all-slots rest-slice reader-slots ;