summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-11-16 15:40:05 +0000
committerArun Isaac2023-11-16 15:40:05 +0000
commit1ef9ff8be51612ba603ddd39040001ad18fd2203 (patch)
tree1a840d2300923defc99f988be17611cfd9a10ed2
parent11f2532db434ede7bb725e62548fef7e6f6e1343 (diff)
downloadccwl-1ef9ff8be51612ba603ddd39040001ad18fd2203.tar.gz
ccwl-1ef9ff8be51612ba603ddd39040001ad18fd2203.tar.lz
ccwl-1ef9ff8be51612ba603ddd39040001ad18fd2203.zip
yaml: Comment on various cases handled by scm->yaml.
* ccwl/yaml.scm (scm->yaml): Comment on cases handled.
-rw-r--r--ccwl/yaml.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/ccwl/yaml.scm b/ccwl/yaml.scm
index 07ed913..00942de 100644
--- a/ccwl/yaml.scm
+++ b/ccwl/yaml.scm
@@ -99,24 +99,29 @@ PORT. LEVEL is an internal recursion variable."
(display-atom single-element port)
(display "]" port)
(newline port))
+ ;; General arrays
(#(head tail ...)
(display-array-element head port level)
(for-each (lambda (element)
(indent-level port level)
(display-array-element element port level))
tail))
+ ;; Empty arrays
(#()
(display "[]" port)
(newline port))
+ ;; General dictionaries
((head tail ...)
(display-dictionary-entry head port level)
(for-each (lambda (entry)
(indent-level port level)
(display-dictionary-entry entry port level))
tail))
+ ;; Empty dictionaries
(()
(display "{}" port)
(newline port))
+ ;; Atoms
(symbol
(display-atom symbol port)
(newline port))))