cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

csys: modify message after sensor creation, + fix test: eff-proc

Browse source
This commit is contained in:
Helmut Merz 2026-03-11 15:14:24 +01:00
parent 0335e7e54d
commit ac4074eccc
2 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
csys/csys.lisp
View file

@ -106,10 +106,11 @@
(defun create-sensor (msg state syns env) (defun create-sensor (msg state syns env)
(let* ((key (shape:data msg)) (let* ((key (shape:data msg))
(sensor (make-neuron actor:*self* :state key))) (sensor (make-neuron actor:*self* :state key))
(nmsg (message:create (list :csys :created (car key) (cadr key)))))
(setf (gethash key (sensors env)) (list sensor)) (setf (gethash key (sensors env)) (list sensor))
(list msg state syns))) (list nmsg state syns)))
(defun add (msg state syns env) (defun add (msg state syns env)
(list msg (+ (shape:data msg) state) syns env)) (list msg (+ (shape:data msg) state) syns))

7
test/test-csys.lisp
View file

@ -31,10 +31,11 @@
) )
(defun eff-proc (msg state syns env) (defun eff-proc (msg state syns env)
(util:lgi msg)
(let ((t:*test-suite* (test-suite env))) (let ((t:*test-suite* (test-suite env)))
(actor:send (core:mailbox (tc:receiver t:*test-suite*)) msg)) (destructuring-bind (nmsg nst nsyns)
(csys:handle-action msg state syns env)) (csys:handle-action msg state syns env)
(util:lgi nmsg)
(actor:send (core:mailbox (tc:receiver t:*test-suite*)) nmsg))))
;;;; test runner ;;;; test runner