From 476672a212d9c051d9d24245ae32737e6f201dda Mon Sep 17 00:00:00 2001 From: hylo Date: Fri, 30 Dec 2022 17:53:13 +0100 Subject: [PATCH] fix(encoder): build empty inline tree all toml-tests passing! --- toml/builder.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/toml/builder.scm b/toml/builder.scm index 46d97b0..d4911bf 100644 --- a/toml/builder.scm +++ b/toml/builder.scm @@ -192,7 +192,8 @@ ;; ((toml-number? scm) (toml-build-number scm port)) ;; ((symbol? scm) (toml-build-string (symbol->string scm) port)) ((vector? scm) (toml-build-array scm port)) - ((string? scm) (toml-build-string scm port))) + ((string? scm) (toml-build-string scm port)) + (else (display scm port))) (build-newline port newline?)))) @@ -204,7 +205,8 @@ ;; ((boolean? scm) (toml-build-boolean scm port)) ;; ((toml-number? scm) (toml-build-number scm port)) ;; ((symbol? scm) (toml-build-string (symbol->string scm) port)) - ((null? scm) '()) + ((null? scm) + (and inline? (toml-build-inline-tree '() port))) (((value?) scm) ((toml-build-value) scm port #:newline? newline? #:inline? inline?)) ((array-table? (and (list? scm) (cdr scm)))