From 4684aa83a64bbd2acf2f8c861d897f2c7c6ce135 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 4 Oct 2024 15:01:09 +0100
Subject: monads: Use write, not display, to print Just values.

* ravanan/work/monads.scm (<maybe>): Use write, not display, to print
Just values.
---
 ravanan/work/monads.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ravanan/work/monads.scm b/ravanan/work/monads.scm
index 7a2cb11..ccb000b 100644
--- a/ravanan/work/monads.scm
+++ b/ravanan/work/monads.scm
@@ -65,7 +65,7 @@
                             (if (maybe-valid? record)
                                 (begin
                                   (display "[Just " port)
-                                  (display (maybe-value record) port)
+                                  (write (maybe-value record) port)
                                   (display "]" port))
                                 (display "Nothing" port))))
 
-- 
cgit v1.2.3