joy-expression-to-string

diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm
index d197de7..b983396 100644 (file)
--- a/implementations/scheme-chicken/joy.scm
+++ b/implementations/scheme-chicken/joy.scm
@@ -44,6 +44,17 @@
 
 (define (text-to-expression text) (parse (tokenize text)))
 
-(display (text-to-expression "ab  cd [[]] 234 [true] false"))
+
+(define (joy-term-to-string term)
+  (cond ((boolean? term) (if term "true" "false"))
+        ((number? term) (->string term))
+        ((list? term) (conc "[" (joy-expression-to-string term) "]"))
+        (else term)))
+
+(define (joy-expression-to-string expr)
+  (string-intersperse (map joy-term-to-string expr) " "))
+
+
+(display (joy-expression-to-string (text-to-expression "ab  cd [[  ]] 234 [true] false")))
 (newline)