BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

Type checking for interface functions

Browse source
This commit is contained in:
BirDt_ 2026-03-28 17:59:46 +08:00
parent a6b767a943
commit 9be97de885
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
engine/core.scm
View file

@ -1,7 +1,9 @@
(module (engine core) (add-entity add-named-entity remove-entity) (module (engine core)
(add-entity add-named-entity remove-entity)
(import scheme (import scheme
(chicken base) (chicken base)
;; raylib ;; raylib
(srfi 1)
(srfi 69) (srfi 69)
(srfi 99) (srfi 99)
(srfi 113) (srfi 113)
@ -89,6 +91,8 @@
;; Create an entity in the world and return it's ID ;; Create an entity in the world and return it's ID
(define (add-named-entity id . components) (define (add-named-entity id . components)
(assert (symbol? id))
(assert (every record? components))
(queue-add-entity id components) (queue-add-entity id components)
id) id)
@ -98,6 +102,7 @@
;; Remove an entity from the world ;; Remove an entity from the world
(define (remove-entity id) (define (remove-entity id)
(assert (symbol? id))
(queue-del-entity id) (queue-del-entity id)
id) id)
) )