YAML: fix parsing when key is f

2014-03-01 19:15:57 +01:00 · 2014-03-01 19:15:57 +01:00 · eddf2c1ab4
parent 7701e1dace
commit eddf2c1ab4
1 changed files with 3 additions and 3 deletions
--- 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