slots.macros: Refactor {word-names}.

[factor.git] / extra / slots / macros / macros.factor

diff --git a/extra/slots/macros/macros.factor b/extra/slots/macros/macros.factor
index cedccade7b53a6f7b1744f3ff7e946ab32663b69..7b2d8a18718458f27a2d74b56ac1c33101cd813d 100644 (file)
--- a/extra/slots/macros/macros.factor
+++ b/extra/slots/macros/macros.factor
@@ -44,12 +44,12 @@ MACRO: set-slot ( name -- quot: ( value tuple -- ) )
 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 ] ;