Enrich entities pipelining to provide scene context to processors

1 files changed, 5 insertions, 3 deletions

diff --git a/world.scm b/world.scm
index d09b9c9..0726eea 100644
--- a/world.scm
+++ b/world.scm
@@ -49,9 +49,11 @@
   (define (scene-map-entities scene . procs)
     "Apply each proc in sequence to the scene's entities; returns a new scene."
     (update-scene scene
-      entities: (fold (lambda (proc es) (map proc es))
-                      (scene-entities scene)
-                      procs)))
+      entities: (fold
+		 (lambda (proc es)
+		   (map (cut proc scene <>) es))
+                 (scene-entities scene)
+                 procs)))
 
   (define (scene-filter-entities scene pred)
     "Keep only entities satisfying pred; returns a new scene."