Imported Upstream version 12.0

1 files changed, 7 insertions, 7 deletions

diff --git a/autosave.scm b/autosave.scm
index 3457b2e..0a5ce12 100644
--- a/autosave.scm
+++ b/autosave.scm
@@ -42,8 +42,8 @@
 			       temp-file)))
       (do ((i 0 (+ 1 i)))
 	  ((= i (channels snd)))
-	(if (hook-empty? (edit-hook snd i))
-	    (add-hook! (edit-hook snd i) (upon-edit snd))))
+	(if (null? (hook-functions (edit-hook snd i)))
+	    (hook-push (edit-hook snd i) (upon-edit snd))))
       (clear-unsaved-edits snd)))
   
   (define (auto-save-done snd)
@@ -65,14 +65,14 @@
 		    (sounds))
 	  (in (* 1000 auto-save-interval) auto-save-func))))
   
-  (if (not (member auto-save-done (hook->list close-hook)))
+  (if (not (member auto-save-done (hook-functions close-hook)))
       (begin
 	(if (not (null? (sounds)))
 	    (for-each auto-save-open-func (sounds)))
-	(add-hook! after-open-hook auto-save-open-func)
-	(add-hook! close-hook auto-save-done)
-	(add-hook! save-hook (lambda (snd name) (auto-save-done snd)))
-	(add-hook! exit-hook (lambda () (for-each auto-save-done (sounds))))))
+	(hook-push after-open-hook auto-save-open-func)
+	(hook-push close-hook auto-save-done)
+	(hook-push save-hook (lambda (snd name) (auto-save-done snd)))
+	(hook-push exit-hook (lambda () (for-each auto-save-done (sounds))))))
   (set! auto-saving #t)
   (in (* 1000 auto-save-interval) auto-save-func))