kernel: add transmute and some use cases

[factor.git] / extra / mediawiki / api / api.factor

diff --git a/extra/mediawiki/api/api.factor b/extra/mediawiki/api/api.factor
index d6bf666db75768809e5929c4627011a137d153e4..e89fc58e84dd5301d5e5175b8a5a0ec736800b2d 100644 (file)
--- a/extra/mediawiki/api/api.factor
+++ b/extra/mediawiki/api/api.factor
@@ -147,7 +147,7 @@ PRIVATE>
 
 :: (query) ( params -- obj assoc )
     { { "action" "query" } } params assoc-union api-call dup
-    dup "query" of [ nip ] when*
+    [ "query" of ] transmute
     "siprop" params key? [
         params { "prop" "list" "meta" } values-of sift first of
     ] unless swap ;