1 files changed, 4 insertions, 1 deletions
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))))