factor: use `[ ] append-as` and `[ ] concat-as` in more places

[factor.git] / basis / xmode / utilities / utilities.factor

diff --git a/basis/xmode/utilities/utilities.factor b/basis/xmode/utilities/utilities.factor
index 2d5e3c7f4041f632231082cd8765fe6ac1d7a2b4..4329b3349ff3b63279d2a6a32d457387ff5fc928 100644 (file)
--- a/basis/xmode/utilities/utilities.factor
+++ b/basis/xmode/utilities/utilities.factor
@@ -25,7 +25,7 @@ IN: xmode.utilities
     [ object set tag set ] prepose with-scope ; inline
 
 MACRO: (init-from-tag) ( specs -- quot )
-    [ tag-init-form ] map concat [ ] like
+    [ tag-init-form ] map [ ] concat-as
     [ with-tag-initializer ] curry ;
 
 : init-from-tag ( tag tuple specs -- tuple )