From fec2a1b42d9fde79f2d5f6e1dac283de3da5f64c Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Mon, 27 Apr 2026 22:29:17 +0200
Subject: [PATCH] csys: some minor clean-up; provide :default stage

---
 lib/csys/environ.ex |  1 -
 lib/csys/program.ex | 16 ++++++----------
 2 files changed, 6 insertions(+), 11 deletions(-)

diff --git a/lib/csys/environ.ex b/lib/csys/environ.ex
index 5272381..df5bca0 100644
--- a/lib/csys/environ.ex
+++ b/lib/csys/environ.ex
@@ -14,7 +14,6 @@ defmodule Scopes.CSys.Environ do
 
   def get_stage(env, prog, stage) do
     Agent.get(env, fn {_parent, progs} ->
-      #progs[prog][stage]
       stages = progs[prog]
       stages[stage] || stages[:default]
     end)
diff --git a/lib/csys/program.ex b/lib/csys/program.ex
index b7a715d..9d012ce 100644
--- a/lib/csys/program.ex
+++ b/lib/csys/program.ex
@@ -9,15 +9,15 @@ defmodule Scopes.CSys.Program do
   # programs
 
   def basic_prog() do
-    %{initial: &std_proc/1,
-      active: &std_proc/1,
-      retired: &std_proc/1
+    %{default: &std_proc/1
+      #initial: &std_proc/1,
+      #active: &std_proc/1,
+      #retired: &std_proc/1
     }
   end
 
   # processors
 
-  #def std_proc({:parent}, scope) do
   def std_proc(msg) do
     scope = Process.get(:scope)
     case msg do
@@ -36,10 +36,6 @@ defmodule Scopes.CSys.Program do
     update_neuron({state, proc, syns, env})
   end
 
-  def xx_std_proc(msg, scope) do
-    forward(msg, scope) || notify(msg, scope)
-  end
-
 # processor steps
 
   def notify(msg, scope) do
@@ -52,9 +48,9 @@ defmodule Scopes.CSys.Program do
 
 # step functions
 
-  def create_parent({_state, procs, _syns, env}) do
+  def create_parent({_state, proc, _syns, env}) do
     syn = synapse(self(), &Function.identity/1, 0)
     #neuron({[], Environ.get_stage(env, :basic, :initial), [syn], env})
-    neuron({[], procs, [syn], env})
+    neuron({[], proc, [syn], env})
   end
 end