1 ! Copyright (C) 2018 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: accessors assocs classes classes.tuple
5 classes.tuple.private kernel math sequences sequences.private
12 M: named-tuple assoc-size tuple-size ;
15 [ nip ] [ ?offset-of-slot ] 2bi [ slot t ] [ drop f f ] if* ;
17 M: named-tuple set-at set-slot-named ;
20 dup class-of all-slots
21 [ [ offset>> slot ] [ name>> ] bi swap ] with { } map>assoc ;
23 INSTANCE: named-tuple assoc
25 M: named-tuple length tuple-size ;
27 M: named-tuple nth-unsafe
28 [ integer>fixnum ] dip array-nth ;
30 M: named-tuple set-nth-unsafe
31 [ integer>fixnum ] dip set-array-nth ;
33 M: named-tuple like class-of slots>tuple ;
35 INSTANCE: named-tuple sequence