From 7903180321bf72b344077a8423930ac161872a2c Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Wed, 8 Apr 2026 01:09:37 +0100 Subject: Avoid lambdas --- demo/sandbox.scm | 4 ++-- demo/shmup.scm | 2 +- demo/tweens.scm | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) (limited to 'demo') diff --git a/demo/sandbox.scm b/demo/sandbox.scm index f757c7f..319ef80 100644 --- a/demo/sandbox.scm +++ b/demo/sandbox.scm @@ -161,8 +161,8 @@ (set! *demo-t* (+ *demo-t* dt)) (let* ((scene (game-scene game)) (tm (scene-tilemap scene))) - (scene-update-entities scene (lambda (e) (step-tweens e dt))) - (scene-update-entities scene (lambda (e) (integrate-entity e dt tm))) + (scene-update-entities scene (cut step-tweens <> dt)) + (scene-update-entities scene (cut integrate-entity <> dt tm)) (scene-sync-groups! scene) (scene-resolve-collisions scene) (scene-update-entities scene diff --git a/demo/shmup.scm b/demo/shmup.scm index e9fec5e..97779a8 100644 --- a/demo/shmup.scm +++ b/demo/shmup.scm @@ -150,7 +150,7 @@ (lambda (e) (or (eq? (entity-type e) 'player) (in-bounds? e)))))) render: (lambda (game) - (for-each (lambda (e) (draw-shmup-entity (game-renderer game) e)) + (for-each (cut draw-shmup-entity (game-renderer game) <>) (scene-entities (game-scene game)))))) (game-run! *game*) diff --git a/demo/tweens.scm b/demo/tweens.scm index a286a49..7ed2372 100644 --- a/demo/tweens.scm +++ b/demo/tweens.scm @@ -83,7 +83,7 @@ update: (lambda (game dt) (scene-update-entities (game-scene game) - (lambda (e) (step-tweens e dt)))) + (cut step-tweens <> dt))) render: (lambda (game) (draw-ease-labels! (game-renderer game) -- cgit v1.2.3