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

YAML: correctly free yaml_event before reusing

db4
Jon Harper 2014-05-02 00:53:12 +02:00 committed by John Benediktsson
parent feb4dcae9a
commit aafbae465c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/yaml/yaml.factor
View File

@ -218,11 +218,11 @@ M: assoc (deref-aliases)
{ YAML_DOCUMENT_START_EVENT [ t ] } { YAML_DOCUMENT_START_EVENT [ t ] }
{ YAML_STREAM_END_EVENT [ f ] } { YAML_STREAM_END_EVENT [ f ] }
[ { YAML_DOCUMENT_START_EVENT YAML_STREAM_END_EVENT } yaml-unexpected-event ] [ { YAML_DOCUMENT_START_EVENT YAML_STREAM_END_EVENT } yaml-unexpected-event ]
} case [ } case
parser event parse-yaml-doc t ] with-destructors [
parser event YAML_DOCUMENT_END_EVENT expect-event parser event parse-yaml-doc t
] [ f f ] if parser event YAML_DOCUMENT_END_EVENT expect-event
] with-destructors ; ] [ f f ] if ;
! registers destructors (use with with-destructors) ! registers destructors (use with with-destructors)
:: init-parser ( str -- parser event ) :: init-parser ( str -- parser event )