diff options
author | Thomas White <taw@physics.org> | 2022-11-12 15:05:28 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2022-11-12 15:05:28 +0100 |
commit | 1cf13d49b350a6aa145977885eab0629f7bfec51 (patch) | |
tree | a030916a4be29788b02745a21b32ec63eedbb65d | |
parent | 5a02170f9e1952cd335b6b097e8ce33de7bb35b1 (diff) |
Add write method for <starlet-state>
-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) |