asset: Fix on-asset-reload method args.

1 files 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))