diff options
| author | Gene Pasquet <dev@etenil.net> | 2026-04-08 01:09:37 +0100 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2026-04-08 01:09:37 +0100 |
| commit | 7903180321bf72b344077a8423930ac161872a2c (patch) | |
| tree | 9b65ca081eebb7657a62d9ae2d4f758c42b500de | |
| parent | 995342fb74fdd1ba5aeaa172a428538e7dd0dcdc (diff) | |
Avoid lambdas
| -rw-r--r-- | demo/sandbox.scm | 4 | ||||
| -rw-r--r-- | demo/shmup.scm | 2 | ||||
| -rw-r--r-- | demo/tweens.scm | 2 |
3 files changed, 4 insertions, 4 deletions
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) |