diff options
| author | Thomas White <taw@physics.org> | 2021-09-11 12:24:27 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-09-11 12:24:27 +0200 |
| commit | 2316596bf254f33a6f0466af64a69fd1753921f6 (patch) | |
| tree | 643d4d2a0a1655ee5ab59c4f3d6a3ec007e83d60 | |
| parent | 3c4c9a2c89defe50ad40c544e383f50eb0aa040e (diff) | |
Run state update hook in 'clear-state!'
| -rw-r--r-- | guile/starlet/state.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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) |