From d5aa8628e3d2616af02bd943f740e9846ab8078a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 7 Feb 2017 12:33:34 -0800
Subject: [PATCH] yaml: using ?adjoin.

---
 extra/yaml/yaml.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/yaml/yaml.factor b/extra/yaml/yaml.factor
index a83b883f08..779858dc12 100644
--- 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 ;