From 1cf13d49b350a6aa145977885eab0629f7bfec51 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 12 Nov 2022 15:05:28 +0100
Subject: Add write method for <starlet-state>

---
 guile/starlet/state.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'guile')

diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index 08b9c8d..5212369 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -334,6 +334,11 @@ pre-existing contents."
 (define (print-state a)
   (pretty-print (state-source a)))
 
+(define-method (write (st <starlet-state>) port)
+  (write
+    (state-source st)
+    port))
+
 
 (define (clamp-to-attr-range fix attr val)
   (if (number? val)
-- 
cgit v1.2.3