yaml: using ?adjoin.

diff --git a/extra/yaml/yaml.factor b/extra/yaml/yaml.factor
index a83b883f083af6c5fd6a3bbbb4ddc0a3ccc5faca..779858dc1225800cf6545c9cc51210daef43f533 100644 (file)
--- a/extra/yaml/yaml.factor
+++ b/extra/yaml/yaml.factor
@@ -234,7 +234,7 @@ PRIVATE>
 
 GENERIC: apply-merge-keys ( already-applied-set obj -- obj' )
 : ?apply-merge-keys ( set obj -- obj' )
-    2dup swap in? [ nip ] [ 2dup swap adjoin apply-merge-keys ] if ;
+    2dup swap ?adjoin [ apply-merge-keys ] [ nip ] if ;
 M: sequence apply-merge-keys
     [ ?apply-merge-keys ] with map! ;
 M: object apply-merge-keys nip ;