diff options
Diffstat (limited to 'guile')
-rw-r--r-- | guile/starlet/state.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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) |