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