From aafbae465c503575198965f48b689e3d46c809bb Mon Sep 17 00:00:00 2001 From: Jon Harper Date: Fri, 2 May 2014 00:53:12 +0200 Subject: [PATCH] YAML: correctly free yaml_event before reusing --- extra/yaml/yaml.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/extra/yaml/yaml.factor b/extra/yaml/yaml.factor index cc5f72515d..bed0ffb7bc 100644 --- a/extra/yaml/yaml.factor +++ b/extra/yaml/yaml.factor @@ -218,11 +218,11 @@ M: assoc (deref-aliases) { YAML_DOCUMENT_START_EVENT [ t ] } { YAML_STREAM_END_EVENT [ f ] } [ { YAML_DOCUMENT_START_EVENT YAML_STREAM_END_EVENT } yaml-unexpected-event ] - } case [ - parser event parse-yaml-doc t - parser event YAML_DOCUMENT_END_EVENT expect-event - ] [ f f ] if - ] with-destructors ; + } case + ] with-destructors [ + parser event parse-yaml-doc t + parser event YAML_DOCUMENT_END_EVENT expect-event + ] [ f f ] if ; ! registers destructors (use with with-destructors) :: init-parser ( str -- parser event )