YAML: fix parsing when key is f

diff --git a/extra/yaml/yaml.factor b/extra/yaml/yaml.factor
index c92b951d29322f98db2998b21579553f31315da6..b01570d1c9c8603434532d6ae80681ebf518e806 100644 (file)
--- 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