steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

YAML: fix parsing when key is f

db4
Jon Harper 2014-03-01 19:15:57 +01:00 committed by John Benediktsson
parent 7701e1dace
commit eddf2c1ab4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/yaml/yaml.factor
View File

@ -41,12 +41,12 @@ DEFER: parse-mapping
[ [
parser event next-event type>> parser event next-event type>>
YAML_MAPPING_END_EVENT = [ YAML_MAPPING_END_EVENT = [
t done! f f t done! f f f
] [ ] [
event ?scalar-value event ?scalar-value t
] if ] if
] with-destructors ] with-destructors
2dup or [ [
[ nip [ parser event ] dip next-complex-value ] when* [ nip [ parser event ] dip next-complex-value ] when*
parser event next-value swap ,, parser event next-value swap ,,
] [ 2drop ] if ] [ 2drop ] if