diff options
author | Thomas White <taw@physics.org> | 2021-02-21 11:55:09 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-02-21 11:55:36 +0100 |
commit | 426cf7da4230adac10d16847a283b93bd138c18d (patch) | |
tree | 3572326f17b26c8b2e44d27394950d7f91030fb4 /guile/starlet/base.scm | |
parent | c9b76323fead8c203c20166a88b31ea78b52a73a (diff) |
Re-implement print-state as (pretty-print (state-source ..))
Diffstat (limited to 'guile/starlet/base.scm')
-rw-r--r-- | guile/starlet/base.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index d6436f3..54c3806 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -4,6 +4,7 @@ #:use-module (ice-9 threads) #:use-module (ice-9 atomic) #:use-module (ice-9 receive) + #:use-module (ice-9 pretty-print) #:use-module (web client) #:use-module (web http) #:use-module (web uri) @@ -605,7 +606,7 @@ pre-existing contents." (define (print-state a) - (print-hash-table (get-state-hash-table a))) + (pretty-print (state-source a))) (define (state-source a) |