From eddf2c1ab4e3a1ec09d352ca6e63a93be31f0fe7 Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Sat, 1 Mar 2014 19:15:57 +0100
Subject: [PATCH] YAML: fix parsing when key is f

---
 extra/yaml/yaml.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/yaml/yaml.factor b/extra/yaml/yaml.factor
index c92b951d29..b01570d1c9 100644
--- a/extra/yaml/yaml.factor
+++ b/extra/yaml/yaml.factor
@@ -41,12 +41,12 @@ DEFER: parse-mapping
             [
                 parser event next-event type>>
                 YAML_MAPPING_END_EVENT = [
-                    t done! f f
+                    t done! f f f
                 ] [
-                    event ?scalar-value
+                    event ?scalar-value t
                 ] if
             ] with-destructors
-            2dup or [
+            [
                 [ nip [ parser event ] dip next-complex-value ] when*
                 parser event next-value swap ,,
             ] [ 2drop ] if