From 8c33e4bbb6d84bc6af22ce3d74367717bb60c583 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Fri, 31 Jul 2026 08:44:43 +0200
Subject: [PATCH] csys: neuron addresses: rename name field to loc

---
 csys/csys.lisp      | 12 ++++++------
 csys/environ.lisp   |  4 ++--
 test/test-csys.lisp |  6 +++---
 3 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/csys/csys.lisp b/csys/csys.lisp
index 17c5278..88a57bf 100644
--- a/csys/csys.lisp
+++ b/csys/csys.lisp
@@ -70,9 +70,9 @@
           (util:lgw "proc not found" cat stg spec))
         proc))))
 
-(defun create-zero (prg env &key (categ '(:csys :c00)) (name "0-0"))
+(defun create-zero (prg env &key (categ '(:csys :c00)) (loc "0-0"))
   (let* ((domain (car categ))
-         (addr (list domain (cadr categ) name))
+         (addr (list domain (cadr categ) loc))
          (msg (message:create (list domain :create) :data (list :addr addr)))
          (scope (scope prg env :categ categ))
          (zero (neuron scope)))
@@ -183,11 +183,11 @@
 
 ;;;; public shortcuts
 
-(defun send-create (cell &rest args &key (domain :csys) (cat :c00) name connect op)
-  (let ((args+ (if name 
-                 `(:addr ,(list domain cat name))
+(defun send-create (cell &rest args &key (domain :csys) (cat :c00) loc connect op)
+  (let ((args+ (if loc 
+                 `(:addr ,(list domain cat loc))
                  `(:categ ,(list domain cat)))))
-    (setf args (alx:remove-from-plist args :domain :cat :name))
+    (setf args (alx:remove-from-plist args :domain :cat :loc))
     (actor:send cell 
       (message:create (list domain :create) :data (append args+ args)))))
 
diff --git a/csys/environ.lisp b/csys/environ.lisp
index a003598..c672aa4 100644
--- a/csys/environ.lisp
+++ b/csys/environ.lisp
@@ -48,8 +48,8 @@
 
 ;;;; public shortcuts
 
-(defun send-value (env val &key (domain :csys) (cat :c00) (name ""))
-  (let ((head (list domain :value cat name)))
+(defun send-value (env val &key (domain :csys) (cat :c00) (loc ""))
+  (let ((head (list domain :value cat loc)))
    (actor:send env (message:create head :data `(:value ,val)))))
  
 ;;;; internal helpers
diff --git a/test/test-csys.lisp b/test/test-csys.lisp
index a90f88e..94c7b24 100644
--- a/test/test-csys.lisp
+++ b/test/test-csys.lisp
@@ -77,7 +77,7 @@
   (lambda (msg scope) 
     (let ((self actor:*self*))
       (csys:send-create self :cat :e01 :connect :succ)
-      (csys:send-create self :cat :s01 :name "0-1" :connect :pred)
+      (csys:send-create self :cat :s01 :loc "0-1" :connect :pred)
       (csys:send-connect self self :op (csys:multiply -1))
       ;; switch :active
       nil)))
@@ -89,7 +89,7 @@
         (rcvr (tc:receiver t:*test-suite*)))
     (sleep 0.1)
     ;(tc:expect rcvr (message:create '(:csys :effect :e01) :data '(:value 1)))
-    (environ:send-value env 1 :cat :s01 :name "0-1")
-    (environ:send-value env 2 :cat :s01 :name "0-1")
+    (environ:send-value env 1 :cat :s01 :loc "0-1")
+    (environ:send-value env 2 :cat :s01 :loc "0-1")
     (sleep 0.1)
     (core:shutdown)))