From b9eed31f9812f3190c9a14386afeb8ab59643447 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 14 Apr 2021 21:09:25 -0400
Subject: asset: Fix on-asset-reload method args.

---
 starling/asset.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/starling/asset.scm b/starling/asset.scm
index 8ddf945..7475280 100644
--- a/starling/asset.scm
+++ b/starling/asset.scm
@@ -84,7 +84,7 @@
                           wt))))
     (hash-set! sub-table asset asset)))
 
-(define-method (on-asset-reload obj slot-name)
+(define-method (on-asset-reload obj slot-name asset)
   #t)
 
 (define-method (add-subscriber (asset <asset>) obj slot-name)
@@ -99,7 +99,11 @@
         (hashq-set! subs obj slot-names))))
 
 (define-method (notify-subscribers (asset <asset>))
-  (hash-for-each on-asset-reload (subscribers asset)))
+  (hash-for-each (lambda (subscriber slot-names)
+                   (for-each (lambda (slot-name)
+                               (on-asset-reload subscriber slot-name asset))
+                             slot-names))
+                 (subscribers asset)))
 
 (define-method (asset-purge (asset <asset>))
   (hash-remove! (hash-ref (asset-file-map) (file-name asset)) asset))
-- 
cgit v1.2.3