From c1c868d9b6ee61002c7ccb33fbc6a15c5b090e6a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 12 Apr 2026 15:57:45 +0100 Subject: Enrich entities pipelining to provide scene context to processors --- world.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'world.scm') 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." -- cgit v1.2.3