From 426cf7da4230adac10d16847a283b93bd138c18d Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 21 Feb 2021 11:55:09 +0100 Subject: Re-implement print-state as (pretty-print (state-source ..)) --- guile/starlet/base.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guile/starlet') 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) -- cgit v1.2.3