diff options
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) |