From 2316596bf254f33a6f0466af64a69fd1753921f6 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 11 Sep 2021 12:24:27 +0200
Subject: Run state update hook in 'clear-state!'

---
 guile/starlet/state.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index 010e486..fcf5a54 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -330,7 +330,10 @@ pre-existing contents."
                    old-ht
                    new-ht)
                  old-ht)
-      (clear-state! state))))  ;; Try again
+      (clear-state! state))) ;; Try again
+
+  (run-hook (get-update-hook state)
+            '() #f #f #f))
 
 
 (define (partition3 pred1 pred2 input)
-- 
cgit v1.2.3