aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ccwl/yaml.scm3
-rw-r--r--tests/yaml.scm5
2 files changed, 7 insertions, 1 deletions
diff --git a/ccwl/yaml.scm b/ccwl/yaml.scm
index 00942de..a33a88f 100644
--- a/ccwl/yaml.scm
+++ b/ccwl/yaml.scm
@@ -79,8 +79,9 @@ serialized to YAML. Else, return @code{#f}."
;; Display on the same line if value is
;; - an empty array
;; - an empty dictionary
+ ;; - an atom
;; - an array with an atom as its only element
- ((or #() () #((? atom? _)))
+ ((or #() () (? atom? _) #((? atom? _)))
(display " " port)
(scm->yaml value port level))
;; Else, display it on the next line.
diff --git a/tests/yaml.scm b/tests/yaml.scm
index d3d01c2..f1cc7ea 100644
--- a/tests/yaml.scm
+++ b/tests/yaml.scm
@@ -46,4 +46,9 @@ bar: {}
"
(scm->yaml-string #("foo")))
+(test-equal "dictionary keys that map to an atomic value must be serialized on the same line"
+ "foo: bar
+"
+ (scm->yaml-string '((foo . bar))))
+
(test-end "yaml")