slots.macros: Refactor {word-names}.

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

diff --git a/extra/slots/macros/macros-tests.factor b/extra/slots/macros/macros-tests.factor
index 46ca59d8a5c1019ab895185a6ab445a1946cb829..345cd4da892c383aec9663362d7ab6665a64ef1c 100644 (file)
--- a/extra/slots/macros/macros-tests.factor
+++ b/extra/slots/macros/macros-tests.factor
@@ -58,7 +58,7 @@ TUPLE: foo a b c ;
 
 { { 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" } } } [
@@ -70,5 +70,5 @@ TUPLE: foo a b c ;
 { 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