From b863763e9bc2efd099934e68d2baf7320f764c1d Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Tue, 7 Apr 2026 09:51:50 +0200 Subject: [PATCH] csys: start with defining programs --- csys/csys.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/csys/csys.lisp b/csys/csys.lisp index 6c235ea..634b15b 100644 --- a/csys/csys.lisp +++ b/csys/csys.lisp @@ -56,12 +56,12 @@ (defun update-neuron (proc state syns) (actor:become (neuron proc state syns))) -(defun std-proc (msg state syns) +(defun std-proc (msg state syns &key (next #'std-proc)) ;(util:lgi msg state syns env) (destructuring-bind (nmsg nst nsyns) (handle-action msg state syns :default #'remember) (forward nmsg nsyns) - (update-neuron (next-proc nst) nst nsyns))) + (update-neuron (next-proc nst next) nst nsyns))) ;;;; neuron state methods @@ -70,6 +70,10 @@ (defgeneric value (state) (:method (state) state)) + +(defun program (msg state syns) + (let ((stages (list #'std-proc))) + (funcall (car stages) msg state syns))) ;;;; sensors: neurons receiving messages from environment, addressable via message head