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

Allow batch processing systems

Browse source
This commit is contained in:
BirDt_ 2026-04-04 14:21:49 +08:00
parent 42df36534e
commit edd3d24160
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
engine/core.scm
View file

@ -140,20 +140,22 @@
;; The system record
(define-record-type <system>
(int:make-system name priority criteria process)
(int:make-system name priority mode criteria process)
system?
(name system-name)
(priority system-priority int:set-system-priority!)
(mode system-mode)
(criteria system-criteria int:set-system-criteria!)
(process system-process int:set-system-process!))
;; Type-checked system constructor wrapper
(define (make-system name priority criteria process)
(define (make-system name priority mode criteria process)
(assert (symbol? name))
(assert (integer? priority))
(assert (member mode '(enity batch)))
(assert (every symbol? criteria))
(assert (procedure? process))
(int:make-system name priority criteria process))
(int:make-system name priority mode criteria process))
;; Type-checked system priority mutator
(define (set-system-priority! system priority)