From 2d65bd196d992a565da58d6c3942314729c948f1 Mon Sep 17 00:00:00 2001
From: bluepython508 <16466646+bluepython508@users.noreply.github.com>
Date: Sun, 18 May 2025 14:26:30 +0100
Subject: [PATCH] Add stringify option for lists; stringify them to read as
 themselves

---
 module/riverguile.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/module/riverguile.scm b/module/riverguile.scm
index 796ec40..de65daa 100644
--- a/module/riverguile.scm
+++ b/module/riverguile.scm
@@ -49,7 +49,8 @@
 (define (stringify x)
   (cond ((string? x) x)
         ((number? x) (number->string x))
-        ((symbol? x) (symbol->string x))))
+        ((symbol? x) (symbol->string x))
+        ((list? x)   (string-join (append '("(") (map stringify x) '(")")) " "))))
 
 (define-syntax R
   (syntax-rules ()