From e0384a9108d35579ddd7074ecaf14fa4f3d2d4fe Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Wed, 29 Jul 2026 14:39:52 +0200 Subject: [PATCH] csys fixes: merge zero actions, remove-from-plist: missing parameter; threshold: default 1 --- csys/csys.lisp | 6 +++--- test/test-csys.lisp | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/csys/csys.lisp b/csys/csys.lisp index 8e91236..17c5278 100644 --- a/csys/csys.lisp +++ b/csys/csys.lisp @@ -128,8 +128,8 @@ ;;;; action handlers -(defun basic-actions () - (list :value (value-add) +(defun basic-actions (&key (threshold 1)) + (list :value (value-add :threshold threshold) :create (create) :connect (connect) :next (no-op :no-forward t))) @@ -187,7 +187,7 @@ (let ((args+ (if name `(:addr ,(list domain cat name)) `(:categ ,(list domain cat))))) - (setf args (alx:remove-from-plist :domain :cat :name)) + (setf args (alx:remove-from-plist args :domain :cat :name)) (actor:send cell (message:create (list domain :create) :data (append args+ args))))) diff --git a/test/test-csys.lisp b/test/test-csys.lisp index 4ef3933..a90f88e 100644 --- a/test/test-csys.lisp +++ b/test/test-csys.lisp @@ -70,8 +70,8 @@ ':default (csys:std-proc :actions (csys:basic-actions))))) (defun actions-zero-initial () - (util:plist-merge (list :next (next-zero-initial)) - (csys:basic-actions))) + (util:plist-merge (csys:basic-actions) + (list :next (next-zero-initial)))) (defun next-zero-initial () (lambda (msg scope)