From ac2284ce5c84ef36599c9ef2dd4a69ffb64c5591 Mon Sep 17 00:00:00 2001 From: BirDt_ Date: Tue, 28 Apr 2026 15:33:58 +0800 Subject: [PATCH] Environment fixes --- engine/loader.scm | 7 ++++--- samples/tic-tac-toe.scm | 12 +++++++++++- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/engine/loader.scm b/engine/loader.scm index b5fb09f..bcea717 100644 --- a/engine/loader.scm +++ b/engine/loader.scm @@ -1,4 +1,4 @@ -(module (engine loader) +(module (engine loader) () (import (scheme) (chicken base) (chicken process-context) @@ -12,6 +12,7 @@ (srfi 1) (srfi 99)) - -(load (last (command-line-arguments))) +(load (last (command-line-arguments)) + (lambda (form) + (eval form (interaction-environment)))) ) diff --git a/samples/tic-tac-toe.scm b/samples/tic-tac-toe.scm index ab242e3..e2136c8 100644 --- a/samples/tic-tac-toe.scm +++ b/samples/tic-tac-toe.scm @@ -1,3 +1,14 @@ +(import (chicken random) + (engine core) + (engine math) + (engine components core) + (engine drawing) + (engine input) + (engine scene) + raylib + (srfi 1) + (srfi 99)) + (register-event-bus 'turn-change) (define draw-text-entities @@ -366,4 +377,3 @@ ((main-menu)) (create-window) -