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