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)
(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))
(list msg state syns)))
(list nmsg state syns)))
(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)
(util:lgi msg)
(let ((t:*test-suite* (test-suite env)))
(actor:send (core:mailbox (tc:receiver t:*test-suite*)) msg))
(csys:handle-action msg state syns env))
(destructuring-bind (nmsg nst nsyns)
(csys:handle-action msg state syns env)
(util:lgi nmsg)
(actor:send (core:mailbox (tc:receiver t:*test-suite*)) nmsg))))
;;;; test runner