From 2754eae6d0c66b2838dc7566904d920ce216dddc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 10 Nov 2018 18:43:54 +0100
Subject: Fixed up examples.

---
 data/writer.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'data/writer.scm')

diff --git a/data/writer.scm b/data/writer.scm
index b79c670..462d391 100644
--- a/data/writer.scm
+++ b/data/writer.scm
@@ -3,7 +3,7 @@
   #:use-module (ice-9 match)
   #:use-module (data monoid)
   #:use-module (control monad)
-  #:export (writer))
+  #:export (writer return-writer))
 
 (read-enable 'curly-infix)
 
@@ -23,6 +23,9 @@
                  (($ <writer> nval ncontext)
                   (writer nval { monoid <> ", " <> ncontext }))))))
 
+(define (return-writer val)
+  (writer val ""))
+
 (define-method (write (this <writer>) port)
   (match this (($ <writer> value monoid)
                (format port "[Writer ~s, ~s]" value monoid))))
-- 
cgit v1.2.3