YAML: correctly emit f as "!!bool false"

diff --git a/extra/yaml/yaml-tests.factor b/extra/yaml/yaml-tests.factor
index 55d9ed8a225f793089ff626f1858bd38e1f97b20..66b843c7c8932cdf9527dfffdcfe317448ec892e 100644 (file)
--- a/extra/yaml/yaml-tests.factor
+++ b/extra/yaml/yaml-tests.factor
@@ -65,6 +65,20 @@ ${ test-objs } [ $ test-docs yaml-docs> ] unit-test
 ${ test-docs } [ $ test-objs >yaml-docs ] unit-test
 ${ test-docs } [ $ test-docs yaml-docs> >yaml-docs ] unit-test
 
+! Misc types
+CONSTANT: test-types { 1 t f 1.0 }
+CONSTANT: test-represented-types """--- !!seq
+- !!int 1
+- !!bool true
+- !!bool false
+- !!float 1.0
+...
+"""
+
+${ test-types } [ $ test-represented-types yaml> ] unit-test
+${ test-types } [ $ test-types >yaml yaml> ] unit-test
+
+
 ! Anchors
 CONSTANT: test-anchors """- &1 "1"
 - *1

diff --git a/extra/yaml/yaml.factor b/extra/yaml/yaml.factor
index f2d97e1937bb3965f019cce933eee66ee13aecf6..fcb191edf5133439e5d22b1ec0fe6b1c1abcf9d7 100644 (file)
--- a/extra/yaml/yaml.factor
+++ b/extra/yaml/yaml.factor
@@ -207,6 +207,7 @@ M: object emit-value ( emitter event obj -- ) emit-scalar ;
 : emit-set ( emitter event set -- )
     [ members ] [ cardinality f <array> ] bi zip concat emit-sequence ;
 
+M: f emit-value ( emitter event seq -- ) emit-scalar ;
 M: string emit-value ( emitter event seq -- ) emit-scalar ;
 M: byte-array emit-value ( emitter event seq -- ) emit-scalar ;
 M: sequence emit-value ( emitter event seq -- )