Don't send fix/attr/val to state update hook

It's not used anywhere, and it doesn't work - there are many other kinds
of update apart from setting an individual value.

1 files changed, 3 insertions, 8 deletions

diff --git a/guile/starlet/state.scm b/guile/starlet/state.scm
index 0047014..560df82 100644
--- a/guile/starlet/state.scm
+++ b/guile/starlet/state.scm
@@ -71,7 +71,7 @@
     #:init-form (make-atomic-box (make-hash-table))
     #:getter get-ht-box)
   (update-hook
-    #:init-form (make-hook 4)
+    #:init-form (make-hook 1)
     #:getter get-update-hook))
 
 
@@ -184,11 +184,7 @@
                  old-ht)
       (set-in-state! state fix attr))  ;; Try again
 
-    (run-hook (get-update-hook state)
-              fix
-              attr
-              value
-              source)))
+    (run-hook (get-update-hook state) source)))
 
 
 (define-method (set-in-state! (state <starlet-state>)
@@ -371,8 +367,7 @@ pre-existing contents."
                  old-ht)
       (clear-state! state))) ;; Try again
 
-  (run-hook (get-update-hook state)
-            '() #f #f #f))
+  (run-hook (get-update-hook state) #f))
 
 
 (define (partition3 pred1 pred2 input)