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

Add more tests

Browse source
This commit is contained in:
BirDt_ 2026-03-29 15:27:12 +08:00
parent 09fd451b73
commit f72e0e1ff5
2 changed files with 51 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
engine/core.scm
View file

@ -227,7 +227,7 @@
(sort-systems))
;; System creation/removal interface
(export add-system remove-system)
(export add-system remove-system clear-systems)
;; Add a system to the state processing and return its name
(define (add-system system)
@ -273,6 +273,8 @@
(hash-table-set! event-buses name (make-hash-table))
name)))
(register-event-bus 'input)
;; Remove an event bus
(define (remove-event-bus name)
(assert (symbol? name))