{ { 2 1 3 } } [
T{ foo { a 1 } { b 2 } { c 3 } }
- { "b" "a" "c" } {slots}
+ { "b" "a" "c" } slots>array
] unit-test
{ T{ foo { a "one" } { b "two" } { c "three" } } } [
{ T{ foo { a "one" } { b "two" } { c "three" } } } [
{ "two" "one" "three" }
T{ foo { a 1 } { b 2 } { c 3 } } clone
- [ { "b" "a" "c" } {set-slots} ] keep
+ [ { "b" "a" "c" } array>set-slots ] keep
] unit-test
MACRO: slots ( names -- quot: ( tuple -- values... ) )
[ '[ _ slot ] ] { } map-as '[ _ cleave ] ;
-MACRO: {slots} ( names -- quot: ( tuple -- {values} ) )
+MACRO: slots>array ( names -- quot: ( tuple -- values ) )
dup length '[ _ slots _ narray ] ;
MACRO: set-slots ( names -- quot: ( values... tuple -- ) )
[ [ '[ _ set-slot ] ] [ ] map-as ] [ length dup ] bi
'[ @ _ cleave-curry _ spread* ] ;
-MACRO: {set-slots} ( names -- quot: ( {values} tuple -- ) )
+MACRO: array>set-slots ( names -- quot: ( values tuple -- ) )
[ length ] keep '[ [ _ firstn ] dip _ set-slots ] ;