erlang: register/whereis, Phase 5 complete (+12 tests)

lib/erlang/bench_ring.sh

@@ -0,0 +1,86 @@
+#!/usr/bin/env bash
+# Erlang-on-SX ring benchmark.
+#
+# Spawns N processes in a ring, passes a token N hops (one full round),
+# and reports wall-clock time + throughput. Aspirational target from
+# the plan is 1M processes; current sync-scheduler architecture caps out
+# orders of magnitude lower — this script measures honestly across a
+# range of N so the result/scaling is recorded.
+#
+# Usage:
+#   bash lib/erlang/bench_ring.sh                # default ladder
+#   bash lib/erlang/bench_ring.sh 100 1000 5000  # custom Ns
+
+set -uo pipefail
+cd "$(git rev-parse --show-toplevel)"
+
+SX_SERVER="${SX_SERVER:-hosts/ocaml/_build/default/bin/sx_server.exe}"
+if [ ! -x "$SX_SERVER" ]; then
+  SX_SERVER="/root/rose-ash/hosts/ocaml/_build/default/bin/sx_server.exe"
+fi
+if [ ! -x "$SX_SERVER" ]; then
+  echo "ERROR: sx_server.exe not found." >&2
+  exit 1
+fi
+
+if [ "$#" -gt 0 ]; then
+  NS=("$@")
+else
+  NS=(10 100 500 1000)
+fi
+
+TMPFILE=$(mktemp)
+trap "rm -f $TMPFILE" EXIT
+
+# One-line Erlang program. Replaces __N__ with the size for each run.
+PROGRAM='Me = self(), N = __N__, Spawner = fun () -> receive {setup, Next} -> Loop = fun () -> receive {token, 0, Parent} -> Parent ! done; {token, K, Parent} -> Next ! {token, K-1, Parent}, Loop() end end, Loop() end end, BuildRing = fun (K, Acc) -> if K =:= 0 -> Acc; true -> BuildRing(K-1, [spawn(Spawner) | Acc]) end end, Pids = BuildRing(N, []), Wire = fun (Ps) -> case Ps of [P, Q | _] -> P ! {setup, Q}, Wire(tl(Ps)); [Last] -> Last ! {setup, hd(Pids)} end end, Wire(Pids), hd(Pids) ! {token, N, Me}, receive done -> done end'
+
+run_n() {
+  local n="$1"
+  local prog="${PROGRAM//__N__/$n}"
+  cat > "$TMPFILE" <<EPOCHS
+(epoch 1)
+(load "lib/erlang/tokenizer.sx")
+(load "lib/erlang/parser.sx")
+(load "lib/erlang/parser-core.sx")
+(load "lib/erlang/parser-expr.sx")
+(load "lib/erlang/parser-module.sx")
+(load "lib/erlang/transpile.sx")
+(load "lib/erlang/runtime.sx")
+(epoch 2)
+(eval "(erlang-eval-ast \"${prog//\"/\\\"}\")")
+EPOCHS
+
+  local start_s start_ns end_s end_ns elapsed_ms
+  start_s=$(date +%s)
+  start_ns=$(date +%N)
+  out=$(timeout 300 "$SX_SERVER" < "$TMPFILE" 2>&1)
+  end_s=$(date +%s)
+  end_ns=$(date +%N)
+
+  local ok="false"
+  if echo "$out" | grep -q ':name "done"'; then ok="true"; fi
+
+  # ms = (end_s - start_s)*1000 + (end_ns - start_ns)/1e6
+  elapsed_ms=$(awk -v s1="$start_s" -v n1="$start_ns" -v s2="$end_s" -v n2="$end_ns" \
+    'BEGIN { printf "%d", (s2 - s1) * 1000 + (n2 - n1) / 1000000 }')
+
+  if [ "$ok" = "true" ]; then
+    local hops_per_s
+    hops_per_s=$(awk -v n="$n" -v ms="$elapsed_ms" \
+      'BEGIN { if (ms == 0) ms = 1; printf "%.0f", n * 1000 / ms }')
+    printf "  N=%-8s  hops=%-8s  %sms  (%s hops/s)\n" "$n" "$n" "$elapsed_ms" "$hops_per_s"
+  else
+    printf "  N=%-8s  FAILED  %sms\n" "$n" "$elapsed_ms"
+  fi
+}
+
+echo "Ring benchmark — sx_server.exe (synchronous scheduler)"
+echo
+for n in "${NS[@]}"; do
+  run_n "$n"
+done
+echo
+echo "Note: 1M-process target from the plan is aspirational; the synchronous"
+echo "scheduler with shift-based suspension and dict-based env copies is not"
+echo "engineered for that scale. Numbers above are honest baselines."

lib/erlang/bench_ring_results.md

@@ -0,0 +1,35 @@
+# Ring Benchmark Results
+
+Generated by `lib/erlang/bench_ring.sh` against `sx_server.exe` on the
+synchronous Erlang-on-SX scheduler.
+
+| N (processes) | Hops | Wall-clock | Throughput |
+|---|---|---|---|
+| 10 | 10 | 907ms | 11 hops/s |
+| 50 | 50 | 2107ms | 24 hops/s |
+| 100 | 100 | 3827ms | 26 hops/s |
+| 500 | 500 | 17004ms | 29 hops/s |
+| 1000 | 1000 | 29832ms | 34 hops/s |
+
+(Each `Nm` row spawns N processes connected in a ring and passes a
+single token N hops total — i.e. the token completes one full lap.)
+
+## Status of the 1M-process target
+
+Phase 3's stretch goal in `plans/erlang-on-sx.md` is a million-process
+ring benchmark. **That target is not met** in the current synchronous
+scheduler; extrapolating from the table above, 1M hops would take
+~30 000 s. Correctness is fine — the program runs at every measured
+size — but throughput is bound by per-hop overhead.
+
+Per-hop cost is dominated by:
+- `er-env-copy` per fun clause attempt (whole-dict copy each time)
+- `call/cc` capture + `raise`/`guard` unwind on every `receive`
+- `er-q-delete-at!` rebuilds the mailbox backing list on every match
+- `dict-set!`/`dict-has?` lookups in the global processes table
+
+To reach 1M-process throughput in this architecture would need at
+least: persistent (path-copying) envs, an inline scheduler that
+doesn't call/cc on the common path (msg-already-in-mailbox), and a
+linked-list mailbox. None of those are in scope for the Phase 3
+checkbox — captured here as the floor we're starting from.

lib/erlang/conformance.sh

@@ -0,0 +1,153 @@
+#!/usr/bin/env bash
+# Erlang-on-SX conformance runner.
+#
+# Loads every erlang test suite via the epoch protocol, collects
+# pass/fail counts, and writes lib/erlang/scoreboard.json + .md.
+#
+# Usage:
+#   bash lib/erlang/conformance.sh           # run all suites
+#   bash lib/erlang/conformance.sh -v        # verbose per-suite
+
+set -uo pipefail
+cd "$(git rev-parse --show-toplevel)"
+
+SX_SERVER="${SX_SERVER:-hosts/ocaml/_build/default/bin/sx_server.exe}"
+if [ ! -x "$SX_SERVER" ]; then
+  SX_SERVER="/root/rose-ash/hosts/ocaml/_build/default/bin/sx_server.exe"
+fi
+if [ ! -x "$SX_SERVER" ]; then
+  echo "ERROR: sx_server.exe not found." >&2
+  exit 1
+fi
+
+VERBOSE="${1:-}"
+TMPFILE=$(mktemp)
+OUTFILE=$(mktemp)
+trap "rm -f $TMPFILE $OUTFILE" EXIT
+
+# Each suite: name | counter pass | counter total
+SUITES=(
+  "tokenize|er-test-pass|er-test-count"
+  "parse|er-parse-test-pass|er-parse-test-count"
+  "eval|er-eval-test-pass|er-eval-test-count"
+  "runtime|er-rt-test-pass|er-rt-test-count"
+  "ring|er-ring-test-pass|er-ring-test-count"
+  "ping-pong|er-pp-test-pass|er-pp-test-count"
+  "bank|er-bank-test-pass|er-bank-test-count"
+  "echo|er-echo-test-pass|er-echo-test-count"
+  "fib|er-fib-test-pass|er-fib-test-count"
+)
+
+cat > "$TMPFILE" << 'EPOCHS'
+(epoch 1)
+(load "lib/erlang/tokenizer.sx")
+(load "lib/erlang/parser.sx")
+(load "lib/erlang/parser-core.sx")
+(load "lib/erlang/parser-expr.sx")
+(load "lib/erlang/parser-module.sx")
+(load "lib/erlang/transpile.sx")
+(load "lib/erlang/runtime.sx")
+(load "lib/erlang/tests/tokenize.sx")
+(load "lib/erlang/tests/parse.sx")
+(load "lib/erlang/tests/eval.sx")
+(load "lib/erlang/tests/runtime.sx")
+(load "lib/erlang/tests/programs/ring.sx")
+(load "lib/erlang/tests/programs/ping_pong.sx")
+(load "lib/erlang/tests/programs/bank.sx")
+(load "lib/erlang/tests/programs/echo.sx")
+(load "lib/erlang/tests/programs/fib_server.sx")
+(epoch 100)
+(eval "(list er-test-pass er-test-count)")
+(epoch 101)
+(eval "(list er-parse-test-pass er-parse-test-count)")
+(epoch 102)
+(eval "(list er-eval-test-pass er-eval-test-count)")
+(epoch 103)
+(eval "(list er-rt-test-pass er-rt-test-count)")
+(epoch 104)
+(eval "(list er-ring-test-pass er-ring-test-count)")
+(epoch 105)
+(eval "(list er-pp-test-pass er-pp-test-count)")
+(epoch 106)
+(eval "(list er-bank-test-pass er-bank-test-count)")
+(epoch 107)
+(eval "(list er-echo-test-pass er-echo-test-count)")
+(epoch 108)
+(eval "(list er-fib-test-pass er-fib-test-count)")
+EPOCHS
+
+timeout 120 "$SX_SERVER" < "$TMPFILE" > "$OUTFILE" 2>&1
+
+# Parse "(N M)" from the line after each "(ok-len <epoch> ...)" marker.
+parse_pair() {
+  local epoch="$1"
+  local line
+  line=$(grep -A1 "^(ok-len $epoch " "$OUTFILE" | tail -1)
+  echo "$line" | sed -E 's/[()]//g'
+}
+
+TOTAL_PASS=0
+TOTAL_COUNT=0
+JSON_SUITES=""
+MD_ROWS=""
+
+idx=0
+for entry in "${SUITES[@]}"; do
+  name="${entry%%|*}"
+  epoch=$((100 + idx))
+  pair=$(parse_pair "$epoch")
+  pass=$(echo "$pair" | awk '{print $1}')
+  count=$(echo "$pair" | awk '{print $2}')
+  if [ -z "$pass" ] || [ -z "$count" ]; then
+    pass=0
+    count=0
+  fi
+  TOTAL_PASS=$((TOTAL_PASS + pass))
+  TOTAL_COUNT=$((TOTAL_COUNT + count))
+  status="ok"
+  marker="✅"
+  if [ "$pass" != "$count" ]; then
+    status="fail"
+    marker="❌"
+  fi
+  if [ "$VERBOSE" = "-v" ]; then
+    printf "  %-12s %s/%s\n" "$name" "$pass" "$count"
+  fi
+  if [ -n "$JSON_SUITES" ]; then JSON_SUITES+=","; fi
+  JSON_SUITES+=$'\n    '
+  JSON_SUITES+="{\"name\":\"$name\",\"pass\":$pass,\"total\":$count,\"status\":\"$status\"}"
+  MD_ROWS+="| $marker | $name | $pass | $count |"$'\n'
+  idx=$((idx + 1))
+done
+
+printf '\nErlang-on-SX conformance: %d / %d\n' "$TOTAL_PASS" "$TOTAL_COUNT"
+
+# scoreboard.json
+cat > lib/erlang/scoreboard.json <<JSON
+{
+  "language": "erlang",
+  "total_pass": $TOTAL_PASS,
+  "total": $TOTAL_COUNT,
+  "suites": [$JSON_SUITES
+  ]
+}
+JSON
+
+# scoreboard.md
+cat > lib/erlang/scoreboard.md <<MD
+# Erlang-on-SX Scoreboard
+
+**Total: ${TOTAL_PASS} / ${TOTAL_COUNT} tests passing**
+
+|  | Suite | Pass | Total |
+|---|---|---|---|
+$MD_ROWS
+
+Generated by \`lib/erlang/conformance.sh\`.
+MD
+
+if [ "$TOTAL_PASS" -eq "$TOTAL_COUNT" ]; then
+  exit 0
+else
+  exit 1
+fi

lib/erlang/scoreboard.json

@@ -0,0 +1,16 @@
+{
+  "language": "erlang",
+  "total_pass": 444,
+  "total": 444,
+  "suites": [
+    {"name":"tokenize","pass":62,"total":62,"status":"ok"},
+    {"name":"parse","pass":52,"total":52,"status":"ok"},
+    {"name":"eval","pass":260,"total":260,"status":"ok"},
+    {"name":"runtime","pass":39,"total":39,"status":"ok"},
+    {"name":"ring","pass":4,"total":4,"status":"ok"},
+    {"name":"ping-pong","pass":4,"total":4,"status":"ok"},
+    {"name":"bank","pass":8,"total":8,"status":"ok"},
+    {"name":"echo","pass":7,"total":7,"status":"ok"},
+    {"name":"fib","pass":8,"total":8,"status":"ok"}
+  ]
+}

lib/erlang/scoreboard.md

@@ -0,0 +1,18 @@
+# Erlang-on-SX Scoreboard
+
+**Total: 444 / 444 tests passing**
+
+|  | Suite | Pass | Total |
+|---|---|---|---|
+| ✅ | tokenize | 62 | 62 |
+| ✅ | parse | 52 | 52 |
+| ✅ | eval | 260 | 260 |
+| ✅ | runtime | 39 | 39 |
+| ✅ | ring | 4 | 4 |
+| ✅ | ping-pong | 4 | 4 |
+| ✅ | bank | 8 | 8 |
+| ✅ | echo | 7 | 7 |
+| ✅ | fib | 8 | 8 |
+
+
+Generated by `lib/erlang/conformance.sh`.

lib/erlang/tests/eval.sx

@@ -0,0 +1,907 @@
+;; Erlang evaluator tests — sequential expressions.
+
+(define er-eval-test-count 0)
+(define er-eval-test-pass 0)
+(define er-eval-test-fails (list))
+
+(define
+  eev-deep=
+  (fn
+    (a b)
+    (cond
+      (and (= (type-of a) "dict") (= (type-of b) "dict"))
+      (let
+        ((ka (sort (keys a))) (kb (sort (keys b))))
+        (and (= ka kb) (every? (fn (k) (eev-deep= (get a k) (get b k))) ka)))
+      (and (= (type-of a) "list") (= (type-of b) "list"))
+      (and
+        (= (len a) (len b))
+        (every? (fn (i) (eev-deep= (nth a i) (nth b i))) (range 0 (len a))))
+      :else (= a b))))
+
+(define
+  er-eval-test
+  (fn
+    (name actual expected)
+    (set! er-eval-test-count (+ er-eval-test-count 1))
+    (if
+      (eev-deep= actual expected)
+      (set! er-eval-test-pass (+ er-eval-test-pass 1))
+      (append! er-eval-test-fails {:actual actual :expected expected :name name}))))
+
+(define ev erlang-eval-ast)
+(define nm (fn (v) (get v :name)))
+
+;; ── literals ──────────────────────────────────────────────────────
+(er-eval-test "int" (ev "42") 42)
+(er-eval-test "zero" (ev "0") 0)
+(er-eval-test "float" (ev "3.14") 3.14)
+(er-eval-test "string" (ev "\"hi\"") "hi")
+(er-eval-test "atom" (nm (ev "ok")) "ok")
+(er-eval-test "atom true" (nm (ev "true")) "true")
+(er-eval-test "atom false" (nm (ev "false")) "false")
+
+;; ── arithmetic ────────────────────────────────────────────────────
+(er-eval-test "add" (ev "1 + 2") 3)
+(er-eval-test "sub" (ev "5 - 3") 2)
+(er-eval-test "mul" (ev "4 * 3") 12)
+(er-eval-test "div-real" (ev "10 / 4") 2.5)
+(er-eval-test "div-int" (ev "10 div 3") 3)
+(er-eval-test "rem" (ev "10 rem 3") 1)
+(er-eval-test "div-neg" (ev "-10 div 3") -3)
+(er-eval-test "precedence" (ev "1 + 2 * 3") 7)
+(er-eval-test "parens" (ev "(1 + 2) * 3") 9)
+(er-eval-test "unary-neg" (ev "-(1 + 2)") -3)
+(er-eval-test "unary-neg int" (ev "-7") -7)
+
+;; ── comparison ────────────────────────────────────────────────────
+(er-eval-test "lt true" (nm (ev "1 < 2")) "true")
+(er-eval-test "gt false" (nm (ev "1 > 2")) "false")
+(er-eval-test "le equal" (nm (ev "2 =< 2")) "true")
+(er-eval-test "ge equal" (nm (ev "2 >= 2")) "true")
+(er-eval-test "eq" (nm (ev "2 == 2")) "true")
+(er-eval-test "neq" (nm (ev "1 /= 2")) "true")
+(er-eval-test "exact-eq same" (nm (ev "1 =:= 1")) "true")
+(er-eval-test "exact-neq int" (nm (ev "1 =:= 2")) "false")
+(er-eval-test "=/= true" (nm (ev "1 =/= 2")) "true")
+(er-eval-test "atom-eq" (nm (ev "ok == ok")) "true")
+(er-eval-test "atom-neq" (nm (ev "ok == error")) "false")
+
+;; ── logical ───────────────────────────────────────────────────────
+(er-eval-test "and tt" (nm (ev "true and true")) "true")
+(er-eval-test "and tf" (nm (ev "true and false")) "false")
+(er-eval-test "or tf" (nm (ev "true or false")) "true")
+(er-eval-test
+  "andalso short"
+  (nm (ev "false andalso Neverref"))
+  "false")
+(er-eval-test
+  "orelse short"
+  (nm (ev "true orelse Neverref"))
+  "true")
+(er-eval-test "not true" (nm (ev "not true")) "false")
+(er-eval-test "not false" (nm (ev "not false")) "true")
+
+;; ── tuples & lists ────────────────────────────────────────────────
+(er-eval-test "tuple tag" (get (ev "{1, 2, 3}") :tag) "tuple")
+(er-eval-test "tuple len" (len (get (ev "{1, 2, 3}") :elements)) 3)
+(er-eval-test "tuple elem" (nth (get (ev "{10, 20}") :elements) 1) 20)
+(er-eval-test "empty tuple" (len (get (ev "{}") :elements)) 0)
+(er-eval-test "nested tuple"
+  (nm (nth (get (ev "{ok, error}") :elements) 0)) "ok")
+(er-eval-test "nil list" (get (ev "[]") :tag) "nil")
+(er-eval-test "list head" (get (ev "[1, 2, 3]") :head) 1)
+(er-eval-test
+  "list tail tail head"
+  (get (get (get (ev "[1, 2, 3]") :tail) :tail) :head)
+  3)
+
+;; ── list ops ──────────────────────────────────────────────────────
+(er-eval-test "++ head" (get (ev "[1, 2] ++ [3]") :head) 1)
+(er-eval-test "++ last"
+  (get (get (get (ev "[1, 2] ++ [3]") :tail) :tail) :head) 3)
+
+;; ── block ─────────────────────────────────────────────────────────
+(er-eval-test "block last wins" (ev "begin 1, 2, 3 end") 3)
+(er-eval-test "bare body" (ev "1, 2, 99") 99)
+
+;; ── match + var ───────────────────────────────────────────────────
+(er-eval-test "match bind-and-use" (ev "X = 5, X + 1") 6)
+(er-eval-test "match sequential" (ev "X = 1, Y = 2, X + Y") 3)
+(er-eval-test
+  "rebind equal ok"
+  (ev "X = 5, X = 5, X") 5)
+
+;; ── if ────────────────────────────────────────────────────────────
+(er-eval-test "if picks first" (ev "if true -> 1; true -> 2 end") 1)
+(er-eval-test
+  "if picks second"
+  (nm (ev "if 1 > 2 -> bad; true -> good end"))
+  "good")
+(er-eval-test
+  "if with guard"
+  (ev "X = 5, if X > 0 -> 1; true -> 0 end")
+  1)
+
+;; ── pattern matching ─────────────────────────────────────────────
+(er-eval-test "match atom literal" (nm (ev "ok = ok, done")) "done")
+(er-eval-test "match int literal" (ev "5 = 5, 42") 42)
+(er-eval-test "match tuple bind"
+  (ev "{ok, V} = {ok, 99}, V") 99)
+(er-eval-test "match tuple nested"
+  (ev "{A, {B, C}} = {1, {2, 3}}, A + B + C") 6)
+(er-eval-test "match cons head"
+  (ev "[H|T] = [1, 2, 3], H") 1)
+(er-eval-test "match cons tail head"
+  (ev "[_, H|_] = [1, 2, 3], H") 2)
+(er-eval-test "match nil"
+  (ev "[] = [], 7") 7)
+(er-eval-test "match wildcard always"
+  (ev "_ = 42, 7") 7)
+(er-eval-test "match var reuse equal"
+  (ev "X = 5, X = 5, X") 5)
+
+;; ── case ─────────────────────────────────────────────────────────
+(er-eval-test "case bind" (ev "case 5 of N -> N end") 5)
+(er-eval-test "case tuple"
+  (ev "case {ok, 42} of {ok, V} -> V end") 42)
+(er-eval-test "case cons"
+  (ev "case [1, 2, 3] of [H|_] -> H end") 1)
+(er-eval-test "case fallthrough"
+  (ev "case error of ok -> 1; error -> 2 end") 2)
+(er-eval-test "case wildcard"
+  (nm (ev "case x of ok -> ok; _ -> err end"))
+  "err")
+(er-eval-test "case guard"
+  (ev "case 5 of N when N > 0 -> pos; _ -> neg end")
+  (er-mk-atom "pos"))
+(er-eval-test "case guard fallthrough"
+  (ev "case -3 of N when N > 0 -> pos; _ -> neg end")
+  (er-mk-atom "neg"))
+(er-eval-test "case bound re-match"
+  (ev "X = 5, case 5 of X -> same; _ -> diff end")
+  (er-mk-atom "same"))
+(er-eval-test "case bound re-match fail"
+  (ev "X = 5, case 6 of X -> same; _ -> diff end")
+  (er-mk-atom "diff"))
+(er-eval-test "case nested tuple"
+  (ev "case {ok, {value, 42}} of {ok, {value, V}} -> V end")
+  42)
+(er-eval-test "case multi-clause"
+  (ev "case 2 of 1 -> one; 2 -> two; _ -> other end")
+  (er-mk-atom "two"))
+(er-eval-test "case leak binding"
+  (ev "case {ok, 7} of {ok, X} -> X end + 1")
+  8)
+
+;; ── guard BIFs (is_*) ────────────────────────────────────────────
+(er-eval-test "is_integer 42" (nm (ev "is_integer(42)")) "true")
+(er-eval-test "is_integer ok" (nm (ev "is_integer(ok)")) "false")
+(er-eval-test "is_atom ok" (nm (ev "is_atom(ok)")) "true")
+(er-eval-test "is_atom int" (nm (ev "is_atom(42)")) "false")
+(er-eval-test "is_list cons" (nm (ev "is_list([1,2])")) "true")
+(er-eval-test "is_list nil"  (nm (ev "is_list([])")) "true")
+(er-eval-test "is_list tuple"  (nm (ev "is_list({1,2})")) "false")
+(er-eval-test "is_tuple tuple" (nm (ev "is_tuple({ok,1})")) "true")
+(er-eval-test "is_tuple list"  (nm (ev "is_tuple([1])")) "false")
+(er-eval-test "is_number int" (nm (ev "is_number(42)")) "true")
+(er-eval-test "is_number atom" (nm (ev "is_number(foo)")) "false")
+(er-eval-test "is_boolean true" (nm (ev "is_boolean(true)")) "true")
+(er-eval-test "is_boolean false" (nm (ev "is_boolean(false)")) "true")
+(er-eval-test "is_boolean atom" (nm (ev "is_boolean(foo)")) "false")
+
+;; ── guard BIFs wired into case / if ─────────────────────────────
+(er-eval-test "guard is_integer pick"
+  (nm (ev "case 5 of N when is_integer(N) -> int; _ -> other end"))
+  "int")
+(er-eval-test "guard is_integer reject"
+  (nm (ev "case foo of N when is_integer(N) -> int; _ -> other end"))
+  "other")
+(er-eval-test "guard is_atom"
+  (nm (ev "case foo of X when is_atom(X) -> atom_yes; _ -> no end"))
+  "atom_yes")
+(er-eval-test "guard conjunction"
+  (nm (ev "case 5 of N when is_integer(N), N > 0 -> pos; _ -> np end"))
+  "pos")
+(er-eval-test "guard disjunction (if)"
+  (nm (ev "X = foo, if is_integer(X); is_atom(X) -> yes; true -> no end"))
+  "yes")
+(er-eval-test "guard arith"
+  (nm (ev "case 3 of N when N * 2 > 5 -> big; _ -> small end"))
+  "big")
+
+;; ── BIFs: list + tuple ──────────────────────────────────────────
+(er-eval-test "length empty" (ev "length([])") 0)
+(er-eval-test "length 3" (ev "length([a, b, c])") 3)
+(er-eval-test "length cons chain" (ev "length([1 | [2 | [3 | []]]])") 3)
+(er-eval-test "hd" (ev "hd([10, 20, 30])") 10)
+(er-eval-test "hd atom"
+  (nm (ev "hd([ok, err])")) "ok")
+(er-eval-test "tl head"
+  (get (ev "tl([1, 2, 3])") :head) 2)
+(er-eval-test "tl of single" (get (ev "tl([1])") :tag) "nil")
+(er-eval-test "element 1" (nm (ev "element(1, {ok, value})")) "ok")
+(er-eval-test "element 2" (ev "element(2, {ok, 42})") 42)
+(er-eval-test "element 3"
+  (nm (ev "element(3, {a, b, c, d})")) "c")
+(er-eval-test "tuple_size 2" (ev "tuple_size({a, b})") 2)
+(er-eval-test "tuple_size 0" (ev "tuple_size({})") 0)
+
+;; ── BIFs: atom / list conversions ───────────────────────────────
+(er-eval-test "atom_to_list" (ev "atom_to_list(hello)") "hello")
+(er-eval-test "list_to_atom roundtrip"
+  (nm (ev "list_to_atom(atom_to_list(foo))")) "foo")
+(er-eval-test "list_to_atom fresh"
+  (nm (ev "list_to_atom(\"bar\")")) "bar")
+
+;; ── lists module ────────────────────────────────────────────────
+(er-eval-test "lists:reverse empty"
+  (get (ev "lists:reverse([])") :tag) "nil")
+(er-eval-test "lists:reverse 3"
+  (ev "hd(lists:reverse([1, 2, 3]))") 3)
+(er-eval-test "lists:reverse full"
+  (ev "lists:foldl(fun (X, Acc) -> Acc + X end, 0, lists:reverse([1, 2, 3]))") 6)
+
+;; ── funs + lists:map / lists:foldl ──────────────────────────────
+(er-eval-test "fun call" (ev "F = fun (X) -> X + 1 end, F(10)") 11)
+(er-eval-test "fun two-arg"
+  (ev "F = fun (X, Y) -> X * Y end, F(3, 4)") 12)
+(er-eval-test "fun closure"
+  (ev "N = 100, F = fun (X) -> X + N end, F(5)") 105)
+(er-eval-test "fun clauses"
+  (ev "F = fun (0) -> zero; (N) -> N end, element(1, {F(0), F(7)})")
+  (er-mk-atom "zero"))
+(er-eval-test "fun multi-clause second"
+  (ev "F = fun (0) -> 0; (N) -> N * 2 end, F(5)") 10)
+(er-eval-test "lists:map empty"
+  (get (ev "lists:map(fun (X) -> X end, [])") :tag) "nil")
+(er-eval-test "lists:map double"
+  (ev "hd(lists:map(fun (X) -> X * 2 end, [1, 2, 3]))") 2)
+(er-eval-test "lists:map sum-length"
+  (ev "length(lists:map(fun (X) -> X end, [a, b, c, d]))") 4)
+(er-eval-test "lists:foldl sum"
+  (ev "lists:foldl(fun (X, Acc) -> X + Acc end, 0, [1, 2, 3, 4, 5])") 15)
+(er-eval-test "lists:foldl product"
+  (ev "lists:foldl(fun (X, Acc) -> X * Acc end, 1, [1, 2, 3, 4])") 24)
+(er-eval-test "lists:foldl as reverse"
+  (ev "hd(lists:foldl(fun (X, Acc) -> [X | Acc] end, [], [1, 2, 3]))") 3)
+
+;; ── io:format (via capture buffer) ──────────────────────────────
+(er-eval-test "io:format plain"
+  (do (er-io-flush!) (ev "io:format(\"hello~n\")") (er-io-buffer-content))
+  "hello\n")
+(er-eval-test "io:format args"
+  (do (er-io-flush!) (ev "io:format(\"x=~p y=~p~n\", [42, hello])") (er-io-buffer-content))
+  "x=42 y=hello\n")
+(er-eval-test "io:format returns ok"
+  (nm (do (er-io-flush!) (ev "io:format(\"~n\")"))) "ok")
+(er-eval-test "io:format tuple"
+  (do (er-io-flush!) (ev "io:format(\"~p\", [{ok, 1}])") (er-io-buffer-content))
+  "{ok,1}")
+(er-eval-test "io:format list"
+  (do (er-io-flush!) (ev "io:format(\"~p\", [[1,2,3]])") (er-io-buffer-content))
+  "[1,2,3]")
+(er-eval-test "io:format escape"
+  (do (er-io-flush!) (ev "io:format(\"50~~\")") (er-io-buffer-content))
+  "50~")
+
+;; ── processes: self/0, spawn/1, is_pid ──────────────────────────
+(er-eval-test "self tag"
+  (get (ev "self()") :tag) "pid")
+(er-eval-test "is_pid self"
+  (nm (ev "is_pid(self())")) "true")
+(er-eval-test "is_pid number"
+  (nm (ev "is_pid(42)")) "false")
+(er-eval-test "is_pid atom"
+  (nm (ev "is_pid(ok)")) "false")
+(er-eval-test "self equals self"
+  (nm (ev "Pid = self(), Pid =:= Pid")) "true")
+(er-eval-test "self =:= self expr"
+  (nm (ev "self() == self()")) "true")
+(er-eval-test "spawn returns pid"
+  (get (ev "spawn(fun () -> ok end)") :tag) "pid")
+(er-eval-test "is_pid spawn"
+  (nm (ev "is_pid(spawn(fun () -> ok end))")) "true")
+(er-eval-test "spawn new pid distinct"
+  (nm (ev "P1 = self(), P2 = spawn(fun () -> ok end), P1 =:= P2"))
+  "false")
+(er-eval-test "two spawns distinct"
+  (nm (ev "P1 = spawn(fun () -> ok end), P2 = spawn(fun () -> ok end), P1 =:= P2"))
+  "false")
+(er-eval-test "spawn then drain io"
+  (do
+    (er-io-flush!)
+    (ev "spawn(fun () -> io:format(\"child~n\") end), io:format(\"parent~n\")")
+    (er-io-buffer-content))
+  "parent\nchild\n")
+(er-eval-test "multiple spawn ordering"
+  (do
+    (er-io-flush!)
+    (ev "spawn(fun () -> io:format(\"a~n\") end), spawn(fun () -> io:format(\"b~n\") end), io:format(\"main~n\")")
+    (er-io-buffer-content))
+  "main\na\nb\n")
+(er-eval-test "child self is its own pid"
+  (do
+    (er-io-flush!)
+    (ev "P = spawn(fun () -> io:format(\"~p\", [is_pid(self())]) end), io:format(\"~p;\", [is_pid(P)])")
+    (er-io-buffer-content))
+  "true;true")
+
+;; ── ! (send) + receive ──────────────────────────────────────────
+(er-eval-test "self-send + receive"
+  (nm (ev "Me = self(), Me ! hello, receive Msg -> Msg end")) "hello")
+(er-eval-test "send returns msg"
+  (nm (ev "Me = self(), Msg = Me ! ok, Me ! x, receive _ -> Msg end")) "ok")
+(er-eval-test "receive int"
+  (ev "Me = self(), Me ! 42, receive N -> N + 1 end") 43)
+(er-eval-test "receive with pattern"
+  (ev "Me = self(), Me ! {ok, 7}, receive {ok, V} -> V * 2 end") 14)
+(er-eval-test "receive with guard"
+  (ev "Me = self(), Me ! 5, receive N when N > 0 -> positive end")
+  (er-mk-atom "positive"))
+(er-eval-test "receive skips non-match"
+  (nm (ev "Me = self(), Me ! wrong, Me ! right, receive right -> ok end"))
+  "ok")
+(er-eval-test "receive selective leaves others"
+  (nm (ev "Me = self(), Me ! a, Me ! b, receive b -> got_b end"))
+  "got_b")
+(er-eval-test "two receives consume both"
+  (ev "Me = self(), Me ! 1, Me ! 2, X = receive A -> A end, Y = receive B -> B end, X + Y") 3)
+
+;; ── spawn + send + receive (real process communication) ─────────
+(er-eval-test "spawn sends back"
+  (nm
+    (ev "Me = self(), spawn(fun () -> Me ! pong end), receive pong -> got_pong end"))
+  "got_pong")
+(er-eval-test "ping-pong"
+  (do
+    (er-io-flush!)
+    (ev "Me = self(), Child = spawn(fun () -> receive {ping, From} -> From ! pong end end), Child ! {ping, Me}, receive pong -> io:format(\"pong~n\") end")
+    (er-io-buffer-content))
+  "pong\n")
+(er-eval-test "echo server"
+  (ev "Me = self(), Echo = spawn(fun () -> receive {From, Msg} -> From ! Msg end end), Echo ! {Me, 99}, receive R -> R end") 99)
+
+;; ── receive with multiple clauses ────────────────────────────────
+(er-eval-test "receive multi-clause"
+  (nm (ev "Me = self(), Me ! foo, receive ok -> a; foo -> b; bar -> c end"))
+  "b")
+(er-eval-test "receive nested tuple"
+  (ev "Me = self(), Me ! {result, {ok, 42}}, receive {result, {ok, V}} -> V end") 42)
+
+;; ── receive ... after ... ───────────────────────────────────────
+(er-eval-test "after 0 empty mailbox"
+  (nm (ev "receive _ -> got after 0 -> timeout end"))
+  "timeout")
+(er-eval-test "after 0 match wins"
+  (nm (ev "Me = self(), Me ! ok, receive ok -> got after 0 -> timeout end"))
+  "got")
+(er-eval-test "after 0 non-match fires timeout"
+  (nm (ev "Me = self(), Me ! wrong, receive right -> got after 0 -> timeout end"))
+  "timeout")
+(er-eval-test "after 0 leaves non-match"
+  (ev "Me = self(), Me ! wrong, receive right -> got after 0 -> to end, receive X -> X end")
+  (er-mk-atom "wrong"))
+(er-eval-test "after Ms no sender — timeout fires"
+  (nm (ev "receive _ -> got after 100 -> timed_out end"))
+  "timed_out")
+(er-eval-test "after Ms with sender — match wins"
+  (nm (ev "Me = self(), spawn(fun () -> Me ! hi end), receive hi -> got after 100 -> to end"))
+  "got")
+(er-eval-test "after Ms computed"
+  (nm (ev "Ms = 50, receive _ -> got after Ms -> done end"))
+  "done")
+(er-eval-test "after 0 body side effect"
+  (do (er-io-flush!)
+    (ev "receive _ -> ok after 0 -> io:format(\"to~n\") end")
+    (er-io-buffer-content))
+  "to\n")
+(er-eval-test "after zero poll selective"
+  (ev "Me = self(), Me ! first, Me ! second, X = receive second -> got_second after 0 -> to end, Y = receive first -> got_first after 0 -> to end, {X, Y}")
+  (er-mk-tuple (list (er-mk-atom "got_second") (er-mk-atom "got_first"))))
+
+;; ── exit/1 + process termination ─────────────────────────────────
+(er-eval-test "exit normal returns nil" (ev "exit(normal)") nil)
+(er-eval-test "exit normal reason"
+  (do (ev "exit(normal)") (nm (er-last-main-exit-reason))) "normal")
+(er-eval-test "exit bye reason"
+  (do (ev "exit(bye)") (nm (er-last-main-exit-reason))) "bye")
+(er-eval-test "exit tuple reason"
+  (do (ev "exit({shutdown, crash})")
+    (get (er-last-main-exit-reason) :tag))
+  "tuple")
+(er-eval-test "normal completion reason"
+  (do (ev "42") (nm (er-last-main-exit-reason))) "normal")
+(er-eval-test "exit aborts subsequent"
+  (do (er-io-flush!) (ev "io:format(\"a~n\"), exit(bye), io:format(\"b~n\")") (er-io-buffer-content))
+  "a\n")
+(er-eval-test "child exit doesn't kill parent"
+  (do
+    (er-io-flush!)
+    (ev "spawn(fun () -> io:format(\"before~n\"), exit(quit), io:format(\"after~n\") end), io:format(\"main~n\")")
+    (er-io-buffer-content))
+  "main\nbefore\n")
+(er-eval-test "child exit reason recorded on child"
+  (do
+    (er-io-flush!)
+    (ev "P = spawn(fun () -> exit(child_bye) end), io:format(\"~p\", [is_pid(P)])")
+    (er-io-buffer-content))
+  "true")
+(er-eval-test "exit inside fn chain"
+  (do (ev "F = fun () -> exit(from_fn) end, F()")
+    (nm (er-last-main-exit-reason)))
+  "from_fn")
+
+;; ── refs / link / monitor ──────────────────────────────────────
+(er-eval-test "make_ref tag"
+  (get (ev "make_ref()") :tag) "ref")
+(er-eval-test "is_reference fresh"
+  (nm (ev "R = make_ref(), is_reference(R)")) "true")
+(er-eval-test "is_reference pid"
+  (nm (ev "is_reference(self())")) "false")
+(er-eval-test "is_reference number"
+  (nm (ev "is_reference(42)")) "false")
+(er-eval-test "make_ref distinct"
+  (nm (ev "R1 = make_ref(), R2 = make_ref(), R1 =:= R2")) "false")
+(er-eval-test "make_ref same id eq"
+  (nm (ev "R = make_ref(), R =:= R")) "true")
+
+(er-eval-test "link returns true"
+  (nm (ev "P = spawn(fun () -> ok end), link(P)")) "true")
+(er-eval-test "self link returns true"
+  (nm (ev "link(self())")) "true")
+(er-eval-test "unlink returns true"
+  (nm (ev "P = spawn(fun () -> ok end), link(P), unlink(P)")) "true")
+(er-eval-test "unlink without link"
+  (nm (ev "P = spawn(fun () -> ok end), unlink(P)")) "true")
+
+(er-eval-test "monitor returns ref"
+  (get (ev "P = spawn(fun () -> ok end), monitor(process, P)") :tag)
+  "ref")
+(er-eval-test "monitor refs distinct"
+  (nm (ev "P = spawn(fun () -> ok end), R1 = monitor(process, P), R2 = monitor(process, P), R1 =:= R2"))
+  "false")
+(er-eval-test "demonitor returns true"
+  (nm (ev "P = spawn(fun () -> ok end), R = monitor(process, P), demonitor(R)"))
+  "true")
+
+;; Bidirectional link recorded on both sides.
+(er-eval-test "link bidirectional"
+  (do
+    (ev "P = spawn(fun () -> receive forever -> ok end end), link(P)")
+    ;; After eval, check links on main + child via accessors.
+    (and
+      (= (len (er-proc-field (er-mk-pid 0) :links)) 1)
+      (= (len (er-proc-field (er-mk-pid 1) :links)) 1)))
+  true)
+
+;; unlink clears both sides.
+(er-eval-test "unlink clears both"
+  (do
+    (ev "P = spawn(fun () -> receive forever -> ok end end), link(P), unlink(P)")
+    (and
+      (= (len (er-proc-field (er-mk-pid 0) :links)) 0)
+      (= (len (er-proc-field (er-mk-pid 1) :links)) 0)))
+  true)
+
+;; monitor adds entries to both lists.
+(er-eval-test "monitor records both sides"
+  (do
+    (ev "P = spawn(fun () -> receive forever -> ok end end), monitor(process, P)")
+    (and
+      (= (len (er-proc-field (er-mk-pid 0) :monitors)) 1)
+      (= (len (er-proc-field (er-mk-pid 1) :monitored-by)) 1)))
+  true)
+
+;; demonitor clears both lists.
+(er-eval-test "demonitor clears both"
+  (do
+    (ev "P = spawn(fun () -> receive forever -> ok end end), R = monitor(process, P), demonitor(R)")
+    (and
+      (= (len (er-proc-field (er-mk-pid 0) :monitors)) 0)
+      (= (len (er-proc-field (er-mk-pid 1) :monitored-by)) 0)))
+  true)
+
+;; ── exit-signal propagation + trap_exit ────────────────────────
+(er-eval-test "process_flag default false"
+  (nm (ev "process_flag(trap_exit, true)")) "false")
+(er-eval-test "process_flag returns prev"
+  (nm (ev "process_flag(trap_exit, true), process_flag(trap_exit, false)"))
+  "true")
+
+;; Monitor fires on normal exit.
+(er-eval-test "monitor DOWN normal"
+  (nm (ev "P = spawn(fun () -> ok end), monitor(process, P), receive {'DOWN', _, process, _, R} -> R end"))
+  "normal")
+
+;; Monitor fires on abnormal exit.
+(er-eval-test "monitor DOWN abnormal"
+  (nm (ev "P = spawn(fun () -> exit(boom) end), monitor(process, P), receive {'DOWN', _, process, _, R} -> R end"))
+  "boom")
+
+;; Monitor's ref appears in DOWN message.
+(er-eval-test "monitor DOWN ref matches"
+  (nm (ev "P = spawn(fun () -> exit(bye) end), Ref = monitor(process, P), receive {'DOWN', Ref, process, _, _} -> ok_match end"))
+  "ok_match")
+
+;; Two monitors -> both fire.
+(er-eval-test "two monitors both fire"
+  (ev "P = spawn(fun () -> exit(crash) end), monitor(process, P), monitor(process, P), receive {'DOWN', _, _, _, _} -> ok end, receive {'DOWN', _, _, _, _} -> 2 end")
+  2)
+
+;; trap_exit + link + abnormal exit -> {'EXIT', From, Reason} message.
+(er-eval-test "trap_exit catches abnormal"
+  (nm (ev "process_flag(trap_exit, true), P = spawn(fun () -> exit(boom) end), link(P), receive {'EXIT', _, R} -> R end"))
+  "boom")
+
+;; trap_exit + link + normal exit -> {'EXIT', From, normal}.
+(er-eval-test "trap_exit catches normal"
+  (nm (ev "process_flag(trap_exit, true), P = spawn(fun () -> ok end), link(P), receive {'EXIT', _, R} -> R end"))
+  "normal")
+
+;; Cascade exit: A links B, B dies abnormally, A dies with same reason.
+(er-eval-test "cascade reason"
+  (do
+    (ev "A = spawn(fun () -> B = spawn(fun () -> exit(crash) end), link(B), receive forever -> ok end end), receive after 0 -> ok end")
+    (nm (er-proc-field (er-mk-pid 1) :exit-reason)))
+  "crash")
+
+;; Normal exit doesn't cascade (without trap_exit) — A's body returns
+;; "survived" via the `after` clause and A dies normally.
+(er-eval-test "normal exit no cascade"
+  (do
+    (ev "A = spawn(fun () -> B = spawn(fun () -> ok end), link(B), receive {'EXIT', _, _} -> got_exit after 50 -> survived end end), receive after 0 -> ok end")
+    (list
+      (nm (er-proc-field (er-mk-pid 1) :exit-reason))
+      (nm (er-proc-field (er-mk-pid 1) :exit-result))))
+  (list "normal" "survived"))
+
+;; Monitor without trap_exit: monitored proc abnormal doesn't kill the monitor.
+(er-eval-test "monitor doesn't cascade"
+  (nm (ev "P = spawn(fun () -> exit(boom) end), monitor(process, P), receive {'DOWN', _, _, _, _} -> alive end"))
+  "alive")
+
+;; ── try / catch / of / after ─────────────────────────────────
+(er-eval-test "try plain"
+  (ev "try 1 + 2 catch _ -> oops end") 3)
+
+(er-eval-test "try throw caught"
+  (nm (ev "try throw(boom) catch throw:X -> X end")) "boom")
+(er-eval-test "try error caught"
+  (nm (ev "try error(crash) catch error:X -> X end")) "crash")
+(er-eval-test "try exit caught"
+  (nm (ev "try exit(quit) catch exit:X -> X end")) "quit")
+
+(er-eval-test "default class is throw"
+  (nm (ev "try throw(bye) catch X -> X end")) "bye")
+(er-eval-test "default class doesn't catch error"
+  (do
+    (ev "P = spawn(fun () -> try error(crash) catch X -> X end end), receive after 0 -> ok end")
+    (nm (er-proc-field (er-mk-pid 1) :exit-reason)))
+  "crash")
+
+;; of clauses
+(er-eval-test "try of single"
+  (ev "try 42 of N -> N * 2 catch _ -> 0 end") 84)
+(er-eval-test "try of multi"
+  (nm (ev "try ok of ok -> matched; _ -> nope catch _ -> oops end"))
+  "matched")
+(er-eval-test "try of fallthrough"
+  (nm (ev "try x of ok -> a; error -> b; _ -> default catch _ -> oops end"))
+  "default")
+(er-eval-test "try of with guard"
+  (nm (ev "try 5 of N when N > 0 -> pos; _ -> nonneg catch _ -> oops end"))
+  "pos")
+
+;; after clause
+(er-eval-test "after on success"
+  (do (er-io-flush!)
+    (ev "try 7 after io:format(\"a\") end")
+    (er-io-buffer-content))
+  "a")
+(er-eval-test "after on caught"
+  (do (er-io-flush!)
+    (ev "try throw(b) catch throw:_ -> caught after io:format(\"x\") end")
+    (er-io-buffer-content))
+  "x")
+(er-eval-test "after returns body value"
+  (ev "try 99 after 0 end") 99)
+(er-eval-test "try preserves catch result"
+  (nm (ev "try throw(x) catch throw:_ -> recovered after 0 end"))
+  "recovered")
+
+;; nested try
+(er-eval-test "try nested catch outer"
+  (nm (ev "try (try throw(inner) catch error:_ -> bad end) catch throw:X -> X end"))
+  "inner")
+(er-eval-test "try nested catch inner"
+  (nm (ev "try (try throw(inner) catch throw:X -> X end) catch _ -> outer end"))
+  "inner")
+
+;; class re-raise on no-match
+(er-eval-test "throw without catch-throw escapes"
+  (do
+    (ev "P = spawn(fun () -> try throw(bye) catch error:_ -> nope end end), receive after 0 -> ok end")
+    (let ((reason (er-proc-field (er-mk-pid 1) :exit-reason)))
+      (and (er-tuple? reason) (nm (nth (get reason :elements) 0)))))
+  "nocatch")
+
+;; multi-clause catch
+(er-eval-test "multi-clause catch picks throw"
+  (nm (ev "try throw(a) catch error:X -> e; throw:X -> t; exit:X -> x end"))
+  "t")
+(er-eval-test "multi-clause catch picks exit"
+  (nm (ev "try exit(a) catch error:X -> e; throw:X -> t; exit:X -> x end"))
+  "x")
+
+;; ── modules: -module(M)., M:F/N cross-module calls ─────────────
+(er-eval-test "load module returns name"
+  (nm (erlang-load-module "-module(m1). foo() -> 42."))
+  "m1")
+
+(er-eval-test "cross-module zero-arity"
+  (do
+    (erlang-load-module "-module(m2). val() -> 7.")
+    (ev "m2:val()"))
+  7)
+
+(er-eval-test "cross-module n-ary"
+  (do
+    (erlang-load-module "-module(m3). add(X, Y) -> X + Y.")
+    (ev "m3:add(3, 4)"))
+  7)
+
+(er-eval-test "module recursive fn"
+  (do
+    (erlang-load-module "-module(m4). fact(0) -> 1; fact(N) -> N * fact(N-1).")
+    (ev "m4:fact(6)"))
+  720)
+
+(er-eval-test "module sibling calls"
+  (do
+    (erlang-load-module "-module(m5). a(X) -> b(X) + 1. b(X) -> X * 10.")
+    (ev "m5:a(5)"))
+  51)
+
+(er-eval-test "module multi-arity"
+  (do
+    (erlang-load-module
+      "-module(m6). f(X) -> X. f(X, Y) -> X + Y. f(X, Y, Z) -> X * Y + Z.")
+    (ev "{m6:f(1), m6:f(2, 3), m6:f(2, 3, 4)}"))
+  (er-mk-tuple (list 1 5 10)))
+
+(er-eval-test "module pattern match clauses"
+  (do
+    (erlang-load-module
+      "-module(m7). check(0) -> zero; check(N) when N > 0 -> pos; check(_) -> neg.")
+    (nm (ev "m7:check(-3)")))
+  "neg")
+
+(er-eval-test "cross-module call within module"
+  (do
+    (erlang-load-module "-module(util1). dbl(X) -> X * 2.")
+    (erlang-load-module "-module(util2). quad(X) -> util1:dbl(X) * 2.")
+    (ev "util2:quad(5)"))
+  20)
+
+(er-eval-test "module undefined fn raises"
+  (do
+    (erlang-load-module "-module(m8). foo() -> 1.")
+    (er-io-flush!)
+    (ev "P = spawn(fun () -> m8:bar() end), receive after 0 -> ok end")
+    (let ((reason (er-proc-field (er-mk-pid 1) :exit-reason)))
+      (and (er-tuple? reason) (nm (nth (get reason :elements) 0)))))
+  "undef")
+
+(er-eval-test "module function used in spawn"
+  (do
+    (erlang-load-module "-module(m9). work(P) -> P ! done.")
+    (ev "Me = self(), spawn(fun () -> m9:work(Me) end), receive done -> ok end"))
+  (er-mk-atom "ok"))
+
+;; ── gen_server (OTP-lite) ──────────────────────────────────────
+(do
+  (er-load-gen-server!)
+  (erlang-load-module
+    "-module(ctr).
+     init(N) -> {ok, N}.
+     handle_call(get, _F, S) -> {reply, S, S}.
+     handle_call({set, V}, _F, _S) -> {reply, ok, V}.
+     handle_call({add, K}, _F, S) -> {reply, S + K, S + K}.
+     handle_cast(inc, S) -> {noreply, S + 1}.
+     handle_cast(dec, S) -> {noreply, S - 1}.
+     handle_cast({add, K}, S) -> {noreply, S + K}.
+     handle_info(_M, S) -> {noreply, S}.")
+  nil)
+
+(er-eval-test "gen_server start + call get"
+  (ev "P = gen_server:start_link(ctr, 10), gen_server:call(P, get)")
+  10)
+
+(er-eval-test "gen_server cast then call"
+  (ev "P = gen_server:start_link(ctr, 0), gen_server:cast(P, inc), gen_server:cast(P, inc), gen_server:cast(P, inc), gen_server:call(P, get)")
+  3)
+
+(er-eval-test "gen_server call returns reply"
+  (ev "P = gen_server:start_link(ctr, 5), gen_server:call(P, {add, 7})")
+  12)
+
+(er-eval-test "gen_server state mutation"
+  (ev "P = gen_server:start_link(ctr, 5), gen_server:call(P, {set, 99}), gen_server:call(P, get)")
+  99)
+
+(er-eval-test "gen_server stop returns ok"
+  (nm (ev "P = gen_server:start_link(ctr, 0), gen_server:stop(P)"))
+  "ok")
+
+(er-eval-test "gen_server cast returns ok immediately"
+  (nm (ev "P = gen_server:start_link(ctr, 0), gen_server:cast(P, inc)"))
+  "ok")
+
+(er-eval-test "gen_server multi-state mutations"
+  (ev "P = gen_server:start_link(ctr, 0), gen_server:cast(P, {add, 100}), gen_server:cast(P, dec), gen_server:cast(P, dec), gen_server:call(P, get)")
+  98)
+
+;; Stack server — exercises a different state shape.
+(do
+  (erlang-load-module
+    "-module(stk).
+     init(_) -> {ok, []}.
+     handle_call(pop, _F, []) -> {reply, empty, []};
+     handle_call(pop, _F, [H | T]) -> {reply, {ok, H}, T};
+     handle_call(peek, _F, []) -> {reply, empty, []};
+     handle_call(peek, _F, [H | T]) -> {reply, {ok, H}, [H | T]};
+     handle_call(size, _F, S) -> {reply, length(S), S}.
+     handle_cast({push, V}, S) -> {noreply, [V | S]}.
+     handle_info(_M, S) -> {noreply, S}.")
+  nil)
+
+(er-eval-test "stack push/pop"
+  (ev "P = gen_server:start_link(stk, ignored), gen_server:cast(P, {push, 1}), gen_server:cast(P, {push, 2}), gen_server:cast(P, {push, 3}), gen_server:call(P, size)")
+  3)
+
+(er-eval-test "stack lifo"
+  (ev "P = gen_server:start_link(stk, ignored), gen_server:cast(P, {push, 1}), gen_server:cast(P, {push, 2}), gen_server:cast(P, {push, 3}), {ok, V} = gen_server:call(P, pop), V")
+  3)
+
+(er-eval-test "stack empty pop"
+  (nm (ev "P = gen_server:start_link(stk, ignored), gen_server:call(P, pop)"))
+  "empty")
+
+;; ── supervisor (one-for-one) ────────────────────────────────────
+(do
+  (er-load-supervisor!)
+  (erlang-load-module
+    "-module(echoer).
+     start() -> spawn(fun () -> echoer:loop() end).
+     loop() ->
+       receive
+         {ping, From} -> From ! pong, echoer:loop();
+         die -> exit(killed)
+       end.")
+  nil)
+
+(er-eval-test "sup starts children"
+  (do
+    (erlang-load-module
+      "-module(sup1). init(_) -> {ok, [{w1, fun () -> echoer:start() end}]}.")
+    (ev "Sup = supervisor:start_link(sup1, []), receive after 5 -> ok end, length(supervisor:which_children(Sup))"))
+  1)
+
+(er-eval-test "sup multiple children"
+  (do
+    (erlang-load-module
+      "-module(sup2).
+       init(_) -> {ok, [
+         {w1, fun () -> echoer:start() end},
+         {w2, fun () -> echoer:start() end},
+         {w3, fun () -> echoer:start() end}
+       ]}.")
+    (ev "Sup = supervisor:start_link(sup2, []), receive after 5 -> ok end, length(supervisor:which_children(Sup))"))
+  3)
+
+(er-eval-test "sup child responds"
+  (do
+    (erlang-load-module
+      "-module(sup3). init(_) -> {ok, [{w1, fun () -> echoer:start() end}]}.")
+    (nm (ev "Sup = supervisor:start_link(sup3, []), receive after 5 -> ok end, [{_, _, P1} | _] = supervisor:which_children(Sup), P1 ! {ping, self()}, receive pong -> ok end")))
+  "ok")
+
+(er-eval-test "sup restarts on exit"
+  (do
+    (erlang-load-module
+      "-module(sup4). init(_) -> {ok, [{w1, fun () -> echoer:start() end}]}.")
+    (nm
+      (ev "Sup = supervisor:start_link(sup4, []), receive after 5 -> ok end, [{_, _, P1} | _] = supervisor:which_children(Sup), P1 ! die, receive after 5 -> ok end, [{_, _, P2} | _] = supervisor:which_children(Sup), P1 =/= P2")))
+  "true")
+
+(er-eval-test "sup restarted child works"
+  (do
+    (erlang-load-module
+      "-module(sup5). init(_) -> {ok, [{w1, fun () -> echoer:start() end}]}.")
+    (nm
+      (ev "Sup = supervisor:start_link(sup5, []), receive after 5 -> ok end, [{_, _, P1} | _] = supervisor:which_children(Sup), P1 ! die, receive after 5 -> ok end, [{_, _, P2} | _] = supervisor:which_children(Sup), P2 ! {ping, self()}, receive pong -> ok end")))
+  "ok")
+
+(er-eval-test "sup one-for-one isolates failures"
+  (do
+    (erlang-load-module
+      "-module(sup6).
+       init(_) -> {ok, [
+         {w1, fun () -> echoer:start() end},
+         {w2, fun () -> echoer:start() end}
+       ]}.")
+    (nm
+      (ev "Sup = supervisor:start_link(sup6, []), receive after 5 -> ok end, [{_, _, P1}, {_, _, P2}] = supervisor:which_children(Sup), P1 ! die, receive after 5 -> ok end, [{_, _, _NewP1}, {_, _, P2Again}] = supervisor:which_children(Sup), P2 =:= P2Again")))
+  "true")
+
+(er-eval-test "sup stop"
+  (nm
+    (do
+      (erlang-load-module
+        "-module(sup7). init(_) -> {ok, [{w1, fun () -> echoer:start() end}]}.")
+      (ev "Sup = supervisor:start_link(sup7, []), receive after 5 -> ok end, supervisor:stop(Sup)")))
+  "ok")
+
+;; ── register / whereis / registered ─────────────────────────────
+(er-eval-test "register returns true"
+  (nm (ev "register(me, self())")) "true")
+
+(er-eval-test "whereis registered self"
+  (nm (ev "register(me, self()), Pid = whereis(me), if Pid =:= self() -> matched; true -> nope end"))
+  "matched")
+
+(er-eval-test "whereis undefined"
+  (nm (ev "whereis(no_such)")) "undefined")
+
+(er-eval-test "send via registered atom"
+  (nm (ev "register(srv, self()), srv ! hello, receive M -> M end"))
+  "hello")
+
+(er-eval-test "send to spawned registered"
+  (nm
+    (ev "Me = self(), P = spawn(fun () -> receive {From, X} -> From ! {got, X} end end), register(child, P), child ! {Me, payload}, receive {got, V} -> V end"))
+  "payload")
+
+(er-eval-test "unregister returns true"
+  (nm (ev "register(a, self()), unregister(a)")) "true")
+
+(er-eval-test "unregister then whereis"
+  (nm (ev "register(a, self()), unregister(a), whereis(a)"))
+  "undefined")
+
+(er-eval-test "registered/0 lists names"
+  (ev "register(a, self()), register(b, self()), register(c, self()), length(registered())")
+  3)
+
+(er-eval-test "register dup raises"
+  (do
+    (ev "P = spawn(fun () -> register(d, self()), register(d, self()) end), receive after 0 -> ok end")
+    (let ((reason (er-proc-field (er-mk-pid 1) :exit-reason)))
+      (nm (if (er-atom? reason) reason (nth (get reason :elements) 0)))))
+  "badarg")
+
+(er-eval-test "unregister missing raises"
+  (do
+    (ev "P = spawn(fun () -> unregister(no_such) end), receive after 0 -> ok end")
+    (let ((reason (er-proc-field (er-mk-pid 1) :exit-reason)))
+      (nm (if (er-atom? reason) reason (nth (get reason :elements) 0)))))
+  "badarg")
+
+(er-eval-test "dead process auto-unregisters"
+  ;; Register a child while it's alive (still in receive). Send `die` so
+  ;; it exits. After scheduler drains, whereis should return undefined.
+  (nm
+    (ev "P = spawn(fun () -> receive die -> exit(killed) end end), register(was_alive, P), P ! die, receive after 5 -> ok end, whereis(was_alive)"))
+  "undefined")
+
+(er-eval-test "send to unregistered name raises"
+  (do
+    (ev "P = spawn(fun () -> no_such ! oops end), receive after 0 -> ok end")
+    (let ((reason (er-proc-field (er-mk-pid 1) :exit-reason)))
+      (nm (if (er-atom? reason) reason (nth (get reason :elements) 0)))))
+  "badarg")
+
+(define
+  er-eval-test-summary
+  (str "eval " er-eval-test-pass "/" er-eval-test-count))

lib/erlang/tests/programs/bank.sx

@@ -0,0 +1,159 @@
+;; Bank account server — stateful process, balance threaded through
+;; recursive loop. Handles {deposit, Amt, From}, {withdraw, Amt, From},
+;; {balance, From}, stop. Tests stateful process patterns.
+
+(define er-bank-test-count 0)
+(define er-bank-test-pass 0)
+(define er-bank-test-fails (list))
+
+(define
+  er-bank-test
+  (fn
+    (name actual expected)
+    (set! er-bank-test-count (+ er-bank-test-count 1))
+    (if
+      (= actual expected)
+      (set! er-bank-test-pass (+ er-bank-test-pass 1))
+      (append! er-bank-test-fails {:actual actual :expected expected :name name}))))
+
+(define bank-ev erlang-eval-ast)
+
+;; Server fun shared by all tests — threaded via the program string.
+(define
+  er-bank-server-src
+  "Server = fun (Balance) ->
+     receive
+       {deposit, Amt, From} -> From ! ok, Server(Balance + Amt);
+       {withdraw, Amt, From} ->
+         if Amt > Balance -> From ! insufficient, Server(Balance);
+            true -> From ! ok, Server(Balance - Amt)
+         end;
+       {balance, From} -> From ! Balance, Server(Balance);
+       stop -> ok
+     end
+   end")
+
+;; Open account, deposit, check balance.
+(er-bank-test
+  "deposit 100 -> balance 100"
+  (bank-ev
+    (str
+      er-bank-server-src
+      ", Me = self(),
+       Bank = spawn(fun () -> Server(0) end),
+       Bank ! {deposit, 100, Me},
+       receive ok -> ok end,
+       Bank ! {balance, Me},
+       receive B -> Bank ! stop, B end"))
+  100)
+
+;; Multiple deposits accumulate.
+(er-bank-test
+  "deposits accumulate"
+  (bank-ev
+    (str
+      er-bank-server-src
+      ", Me = self(),
+       Bank = spawn(fun () -> Server(0) end),
+       Bank ! {deposit, 50, Me}, receive ok -> ok end,
+       Bank ! {deposit, 25, Me}, receive ok -> ok end,
+       Bank ! {deposit, 10, Me}, receive ok -> ok end,
+       Bank ! {balance, Me},
+       receive B -> Bank ! stop, B end"))
+  85)
+
+;; Withdraw within balance succeeds; insufficient gets rejected.
+(er-bank-test
+  "withdraw within balance"
+  (bank-ev
+    (str
+      er-bank-server-src
+      ", Me = self(),
+       Bank = spawn(fun () -> Server(100) end),
+       Bank ! {withdraw, 30, Me}, receive ok -> ok end,
+       Bank ! {balance, Me},
+       receive B -> Bank ! stop, B end"))
+  70)
+
+(er-bank-test
+  "withdraw insufficient"
+  (get
+    (bank-ev
+      (str
+        er-bank-server-src
+        ", Me = self(),
+         Bank = spawn(fun () -> Server(20) end),
+         Bank ! {withdraw, 100, Me},
+         receive R -> Bank ! stop, R end"))
+    :name)
+  "insufficient")
+
+;; State preserved across an insufficient withdrawal.
+(er-bank-test
+  "state preserved on rejection"
+  (bank-ev
+    (str
+      er-bank-server-src
+      ", Me = self(),
+       Bank = spawn(fun () -> Server(50) end),
+       Bank ! {withdraw, 1000, Me}, receive _ -> ok end,
+       Bank ! {balance, Me},
+       receive B -> Bank ! stop, B end"))
+  50)
+
+;; Mixed deposits and withdrawals.
+(er-bank-test
+  "mixed transactions"
+  (bank-ev
+    (str
+      er-bank-server-src
+      ", Me = self(),
+       Bank = spawn(fun () -> Server(100) end),
+       Bank ! {deposit, 50, Me}, receive ok -> ok end,
+       Bank ! {withdraw, 30, Me}, receive ok -> ok end,
+       Bank ! {deposit, 10, Me}, receive ok -> ok end,
+       Bank ! {withdraw, 5, Me}, receive ok -> ok end,
+       Bank ! {balance, Me},
+       receive B -> Bank ! stop, B end"))
+  125)
+
+;; Server.stop terminates the bank cleanly — main can verify by
+;; sending stop and then exiting normally.
+(er-bank-test
+  "server stops cleanly"
+  (get
+    (bank-ev
+      (str
+        er-bank-server-src
+        ", Me = self(),
+         Bank = spawn(fun () -> Server(0) end),
+         Bank ! stop,
+         done"))
+    :name)
+  "done")
+
+;; Two clients sharing one bank — interleaved transactions.
+(er-bank-test
+  "two clients share bank"
+  (bank-ev
+    (str
+      er-bank-server-src
+      ", Me = self(),
+       Bank = spawn(fun () -> Server(0) end),
+       Client = fun (Amt) ->
+         spawn(fun () ->
+           Bank ! {deposit, Amt, self()},
+           receive ok -> Me ! deposited end
+         end)
+       end,
+       Client(40),
+       Client(60),
+       receive deposited -> ok end,
+       receive deposited -> ok end,
+       Bank ! {balance, Me},
+       receive B -> Bank ! stop, B end"))
+  100)
+
+(define
+  er-bank-test-summary
+  (str "bank " er-bank-test-pass "/" er-bank-test-count))

lib/erlang/tests/programs/echo.sx

@@ -0,0 +1,140 @@
+;; Echo server — minimal classic Erlang server. Receives {From, Msg}
+;; and sends Msg back to From, then loops. `stop` ends the server.
+
+(define er-echo-test-count 0)
+(define er-echo-test-pass 0)
+(define er-echo-test-fails (list))
+
+(define
+  er-echo-test
+  (fn
+    (name actual expected)
+    (set! er-echo-test-count (+ er-echo-test-count 1))
+    (if
+      (= actual expected)
+      (set! er-echo-test-pass (+ er-echo-test-pass 1))
+      (append! er-echo-test-fails {:actual actual :expected expected :name name}))))
+
+(define echo-ev erlang-eval-ast)
+
+(define
+  er-echo-server-src
+  "EchoSrv = fun () ->
+     Loop = fun () ->
+       receive
+         {From, Msg} -> From ! Msg, Loop();
+         stop -> ok
+       end
+     end,
+     Loop()
+   end")
+
+;; Single round-trip with an atom.
+(er-echo-test
+  "atom round-trip"
+  (get
+    (echo-ev
+      (str
+        er-echo-server-src
+        ", Me = self(),
+         Echo = spawn(EchoSrv),
+         Echo ! {Me, hello},
+         receive R -> Echo ! stop, R end"))
+    :name)
+  "hello")
+
+;; Number round-trip.
+(er-echo-test
+  "number round-trip"
+  (echo-ev
+    (str
+      er-echo-server-src
+      ", Me = self(),
+       Echo = spawn(EchoSrv),
+       Echo ! {Me, 42},
+       receive R -> Echo ! stop, R end"))
+  42)
+
+;; Tuple round-trip — pattern-match the reply to extract V.
+(er-echo-test
+  "tuple round-trip"
+  (echo-ev
+    (str
+      er-echo-server-src
+      ", Me = self(),
+       Echo = spawn(EchoSrv),
+       Echo ! {Me, {ok, 7}},
+       receive {ok, V} -> Echo ! stop, V end"))
+  7)
+
+;; List round-trip.
+(er-echo-test
+  "list round-trip"
+  (echo-ev
+    (str
+      er-echo-server-src
+      ", Me = self(),
+       Echo = spawn(EchoSrv),
+       Echo ! {Me, [1, 2, 3]},
+       receive [H | _] -> Echo ! stop, H end"))
+  1)
+
+;; Multiple sequential round-trips.
+(er-echo-test
+  "three round-trips"
+  (echo-ev
+    (str
+      er-echo-server-src
+      ", Me = self(),
+       Echo = spawn(EchoSrv),
+       Echo ! {Me, 10}, A = receive Ra -> Ra end,
+       Echo ! {Me, 20}, B = receive Rb -> Rb end,
+       Echo ! {Me, 30}, C = receive Rc -> Rc end,
+       Echo ! stop,
+       A + B + C"))
+  60)
+
+;; Two clients sharing one echo server. Each gets its own reply.
+(er-echo-test
+  "two clients"
+  (get
+    (echo-ev
+      (str
+        er-echo-server-src
+        ", Me = self(),
+         Echo = spawn(EchoSrv),
+         Client = fun (Tag) ->
+           spawn(fun () ->
+             Echo ! {self(), Tag},
+             receive R -> Me ! {got, R} end
+           end)
+         end,
+         Client(a),
+         Client(b),
+         receive {got, _} -> ok end,
+         receive {got, _} -> ok end,
+         Echo ! stop,
+         finished"))
+    :name)
+  "finished")
+
+;; Echo via io trace — verify each message round-trips through.
+(er-echo-test
+  "trace 4 messages"
+  (do
+    (er-io-flush!)
+    (echo-ev
+      (str
+        er-echo-server-src
+        ", Me = self(),
+         Echo = spawn(EchoSrv),
+         Send = fun (V) -> Echo ! {Me, V}, receive R -> io:format(\"~p \", [R]) end end,
+         Send(1), Send(2), Send(3), Send(4),
+         Echo ! stop,
+         done"))
+    (er-io-buffer-content))
+  "1 2 3 4 ")
+
+(define
+  er-echo-test-summary
+  (str "echo " er-echo-test-pass "/" er-echo-test-count))

lib/erlang/tests/programs/fib_server.sx

@@ -0,0 +1,152 @@
+;; Fib server — long-lived process that computes fibonacci numbers on
+;; request. Tests recursive function evaluation inside a server loop.
+
+(define er-fib-test-count 0)
+(define er-fib-test-pass 0)
+(define er-fib-test-fails (list))
+
+(define
+  er-fib-test
+  (fn
+    (name actual expected)
+    (set! er-fib-test-count (+ er-fib-test-count 1))
+    (if
+      (= actual expected)
+      (set! er-fib-test-pass (+ er-fib-test-pass 1))
+      (append! er-fib-test-fails {:actual actual :expected expected :name name}))))
+
+(define fib-ev erlang-eval-ast)
+
+;; Fib + server-loop source. Standalone so each test can chain queries.
+(define
+  er-fib-server-src
+  "Fib = fun (0) -> 0; (1) -> 1; (N) -> Fib(N-1) + Fib(N-2) end,
+   FibSrv = fun () ->
+     Loop = fun () ->
+       receive
+         {fib, N, From} -> From ! Fib(N), Loop();
+         stop -> ok
+       end
+     end,
+     Loop()
+   end")
+
+;; Base cases.
+(er-fib-test
+  "fib(0)"
+  (fib-ev
+    (str
+      er-fib-server-src
+      ", Me = self(),
+       Srv = spawn(FibSrv),
+       Srv ! {fib, 0, Me},
+       receive R -> Srv ! stop, R end"))
+  0)
+
+(er-fib-test
+  "fib(1)"
+  (fib-ev
+    (str
+      er-fib-server-src
+      ", Me = self(),
+       Srv = spawn(FibSrv),
+       Srv ! {fib, 1, Me},
+       receive R -> Srv ! stop, R end"))
+  1)
+
+;; Larger values.
+(er-fib-test
+  "fib(10) = 55"
+  (fib-ev
+    (str
+      er-fib-server-src
+      ", Me = self(),
+       Srv = spawn(FibSrv),
+       Srv ! {fib, 10, Me},
+       receive R -> Srv ! stop, R end"))
+  55)
+
+(er-fib-test
+  "fib(15) = 610"
+  (fib-ev
+    (str
+      er-fib-server-src
+      ", Me = self(),
+       Srv = spawn(FibSrv),
+       Srv ! {fib, 15, Me},
+       receive R -> Srv ! stop, R end"))
+  610)
+
+;; Multiple sequential queries to one server. Sum to avoid dict-equality.
+(er-fib-test
+  "sequential fib(5..8) sum"
+  (fib-ev
+    (str
+      er-fib-server-src
+      ", Me = self(),
+       Srv = spawn(FibSrv),
+       Srv ! {fib, 5, Me}, A = receive Ra -> Ra end,
+       Srv ! {fib, 6, Me}, B = receive Rb -> Rb end,
+       Srv ! {fib, 7, Me}, C = receive Rc -> Rc end,
+       Srv ! {fib, 8, Me}, D = receive Rd -> Rd end,
+       Srv ! stop,
+       A + B + C + D"))
+  47)
+
+;; Verify Fib obeys the recurrence — fib(n) = fib(n-1) + fib(n-2).
+(er-fib-test
+  "fib recurrence at n=12"
+  (fib-ev
+    (str
+      er-fib-server-src
+      ", Me = self(),
+       Srv = spawn(FibSrv),
+       Srv ! {fib, 10, Me}, A = receive Ra -> Ra end,
+       Srv ! {fib, 11, Me}, B = receive Rb -> Rb end,
+       Srv ! {fib, 12, Me}, C = receive Rc -> Rc end,
+       Srv ! stop,
+       C - (A + B)"))
+  0)
+
+;; Two clients each get their own answer; main sums the results.
+(er-fib-test
+  "two clients sum"
+  (fib-ev
+    (str
+      er-fib-server-src
+      ", Me = self(),
+       Srv = spawn(FibSrv),
+       Client = fun (N) ->
+         spawn(fun () ->
+           Srv ! {fib, N, self()},
+           receive R -> Me ! {result, R} end
+         end)
+       end,
+       Client(7),
+       Client(9),
+       {result, A} = receive M1 -> M1 end,
+       {result, B} = receive M2 -> M2 end,
+       Srv ! stop,
+       A + B"))
+  47)
+
+;; Trace queries via io-buffer.
+(er-fib-test
+  "trace fib 0..6"
+  (do
+    (er-io-flush!)
+    (fib-ev
+      (str
+        er-fib-server-src
+        ", Me = self(),
+         Srv = spawn(FibSrv),
+         Ask = fun (N) -> Srv ! {fib, N, Me}, receive R -> io:format(\"~p \", [R]) end end,
+         Ask(0), Ask(1), Ask(2), Ask(3), Ask(4), Ask(5), Ask(6),
+         Srv ! stop,
+         done"))
+    (er-io-buffer-content))
+  "0 1 1 2 3 5 8 ")
+
+(define
+  er-fib-test-summary
+  (str "fib " er-fib-test-pass "/" er-fib-test-count))

lib/erlang/tests/programs/ping_pong.sx

@@ -0,0 +1,127 @@
+;; Ping-pong program — two processes exchange N messages, then signal
+;; main via separate `ping_done` / `pong_done` notifications.
+
+(define er-pp-test-count 0)
+(define er-pp-test-pass 0)
+(define er-pp-test-fails (list))
+
+(define
+  er-pp-test
+  (fn
+    (name actual expected)
+    (set! er-pp-test-count (+ er-pp-test-count 1))
+    (if
+      (= actual expected)
+      (set! er-pp-test-pass (+ er-pp-test-pass 1))
+      (append! er-pp-test-fails {:actual actual :expected expected :name name}))))
+
+(define pp-ev erlang-eval-ast)
+
+;; Three rounds of ping-pong, then stop. Main receives ping_done and
+;; pong_done in arrival order (Ping finishes first because Pong exits
+;; only after receiving stop).
+(define
+  er-pp-program
+  "Me = self(),
+   Pong = spawn(fun () ->
+     Loop = fun () ->
+       receive
+         {ping, From} -> From ! pong, Loop();
+         stop -> Me ! pong_done
+       end
+     end,
+     Loop()
+   end),
+   Ping = fun (Target, K) ->
+     if K =:= 0 -> Target ! stop, Me ! ping_done;
+        true -> Target ! {ping, self()}, receive pong -> Ping(Target, K - 1) end
+     end
+   end,
+   spawn(fun () -> Ping(Pong, 3) end),
+   receive ping_done -> ok end,
+   receive pong_done -> both_done end")
+
+(er-pp-test
+  "ping-pong 3 rounds"
+  (get (pp-ev er-pp-program) :name)
+  "both_done")
+
+;; Count exchanges via io-buffer — each pong trip prints "p".
+(er-pp-test
+  "ping-pong 5 rounds trace"
+  (do
+    (er-io-flush!)
+    (pp-ev
+      "Me = self(),
+       Pong = spawn(fun () ->
+         Loop = fun () ->
+           receive
+             {ping, From} -> io:format(\"p\"), From ! pong, Loop();
+             stop -> Me ! pong_done
+           end
+         end,
+         Loop()
+       end),
+       Ping = fun (Target, K) ->
+         if K =:= 0 -> Target ! stop, Me ! ping_done;
+            true -> Target ! {ping, self()}, receive pong -> Ping(Target, K - 1) end
+         end
+       end,
+       spawn(fun () -> Ping(Pong, 5) end),
+       receive ping_done -> ok end,
+       receive pong_done -> ok end")
+    (er-io-buffer-content))
+  "ppppp")
+
+;; Main → Pong directly (no Ping process). Main plays the ping role.
+(er-pp-test
+  "main-as-pinger 4 rounds"
+  (pp-ev
+    "Me = self(),
+     Pong = spawn(fun () ->
+       Loop = fun () ->
+         receive
+           {ping, From} -> From ! pong, Loop();
+           stop -> ok
+         end
+       end,
+       Loop()
+     end),
+     Go = fun (K) ->
+       if K =:= 0 -> Pong ! stop, K;
+          true -> Pong ! {ping, Me}, receive pong -> Go(K - 1) end
+       end
+     end,
+     Go(4)")
+  0)
+
+;; Ensure the processes really interleave — inject an id into each
+;; ping and check we get them all back via trace (the order is
+;; deterministic under our sync scheduler).
+(er-pp-test
+  "ids round-trip"
+  (do
+    (er-io-flush!)
+    (pp-ev
+      "Me = self(),
+       Pong = spawn(fun () ->
+         Loop = fun () ->
+           receive
+             {ping, From, Id} -> From ! {pong, Id}, Loop();
+             stop -> ok
+           end
+         end,
+         Loop()
+       end),
+       Go = fun (K) ->
+         if K =:= 0 -> Pong ! stop, done;
+            true -> Pong ! {ping, Me, K}, receive {pong, RId} -> io:format(\"~p \", [RId]), Go(K - 1) end
+         end
+       end,
+       Go(4)")
+    (er-io-buffer-content))
+  "4 3 2 1 ")
+
+(define
+  er-pp-test-summary
+  (str "ping-pong " er-pp-test-pass "/" er-pp-test-count))

lib/erlang/tests/programs/ring.sx

@@ -0,0 +1,132 @@
+;; Ring program — N processes in a ring, token passes M times.
+;;
+;; Each process waits for {setup, Next} so main can tie the knot
+;; (can't reference a pid before spawning it). Once wired, main
+;; injects the first token; each process forwards decrementing K
+;; until it hits 0, at which point it signals `done` to main.
+
+(define er-ring-test-count 0)
+(define er-ring-test-pass 0)
+(define er-ring-test-fails (list))
+
+(define
+  er-ring-test
+  (fn
+    (name actual expected)
+    (set! er-ring-test-count (+ er-ring-test-count 1))
+    (if
+      (= actual expected)
+      (set! er-ring-test-pass (+ er-ring-test-pass 1))
+      (append! er-ring-test-fails {:actual actual :expected expected :name name}))))
+
+(define ring-ev erlang-eval-ast)
+
+(define
+  er-ring-program-3-6
+  "Me = self(),
+   Spawner = fun () ->
+     receive {setup, Next} ->
+       Loop = fun () ->
+         receive
+           {token, 0, Parent} -> Parent ! done;
+           {token, K, Parent} -> Next ! {token, K-1, Parent}, Loop()
+         end
+       end,
+       Loop()
+     end
+   end,
+   P1 = spawn(Spawner),
+   P2 = spawn(Spawner),
+   P3 = spawn(Spawner),
+   P1 ! {setup, P2},
+   P2 ! {setup, P3},
+   P3 ! {setup, P1},
+   P1 ! {token, 5, Me},
+   receive done -> finished end")
+
+(er-ring-test
+  "ring N=3 M=6"
+  (get (ring-ev er-ring-program-3-6) :name)
+  "finished")
+
+;; Two-node ring — token bounces twice between P1 and P2.
+(er-ring-test
+  "ring N=2 M=4"
+  (get (ring-ev
+    "Me = self(),
+     Spawner = fun () ->
+       receive {setup, Next} ->
+         Loop = fun () ->
+           receive
+             {token, 0, Parent} -> Parent ! done;
+             {token, K, Parent} -> Next ! {token, K-1, Parent}, Loop()
+           end
+         end,
+         Loop()
+       end
+     end,
+     P1 = spawn(Spawner),
+     P2 = spawn(Spawner),
+     P1 ! {setup, P2},
+     P2 ! {setup, P1},
+     P1 ! {token, 3, Me},
+     receive done -> done end") :name)
+  "done")
+
+;; Single-node "ring" — P sends to itself M times.
+(er-ring-test
+  "ring N=1 M=5"
+  (get (ring-ev
+    "Me = self(),
+     Spawner = fun () ->
+       receive {setup, Next} ->
+         Loop = fun () ->
+           receive
+             {token, 0, Parent} -> Parent ! finished_loop;
+             {token, K, Parent} -> Next ! {token, K-1, Parent}, Loop()
+           end
+         end,
+         Loop()
+       end
+     end,
+     P = spawn(Spawner),
+     P ! {setup, P},
+     P ! {token, 4, Me},
+     receive finished_loop -> ok end") :name)
+  "ok")
+
+;; Confirm the token really went around — count hops via io-buffer.
+(er-ring-test
+  "ring N=3 M=9 hop count"
+  (do
+    (er-io-flush!)
+    (ring-ev
+      "Me = self(),
+       Spawner = fun () ->
+         receive {setup, Next} ->
+           Loop = fun () ->
+             receive
+               {token, 0, Parent} -> Parent ! done;
+               {token, K, Parent} ->
+                 io:format(\"~p \", [K]),
+                 Next ! {token, K-1, Parent},
+                 Loop()
+             end
+           end,
+           Loop()
+         end
+       end,
+       P1 = spawn(Spawner),
+       P2 = spawn(Spawner),
+       P3 = spawn(Spawner),
+       P1 ! {setup, P2},
+       P2 ! {setup, P3},
+       P3 ! {setup, P1},
+       P1 ! {token, 8, Me},
+       receive done -> done end")
+    (er-io-buffer-content))
+  "8 7 6 5 4 3 2 1 ")
+
+(define
+  er-ring-test-summary
+  (str "ring " er-ring-test-pass "/" er-ring-test-count))

lib/erlang/tests/runtime.sx

@@ -0,0 +1,139 @@
+;; Erlang runtime tests — scheduler + process-record primitives.
+
+(define er-rt-test-count 0)
+(define er-rt-test-pass 0)
+(define er-rt-test-fails (list))
+
+(define
+  er-rt-test
+  (fn
+    (name actual expected)
+    (set! er-rt-test-count (+ er-rt-test-count 1))
+    (if
+      (= actual expected)
+      (set! er-rt-test-pass (+ er-rt-test-pass 1))
+      (append! er-rt-test-fails {:actual actual :expected expected :name name}))))
+
+;; ── queue ─────────────────────────────────────────────────────────
+(er-rt-test "queue empty len" (er-q-len (er-q-new)) 0)
+(er-rt-test "queue empty?" (er-q-empty? (er-q-new)) true)
+
+(define q1 (er-q-new))
+(er-q-push! q1 "a")
+(er-q-push! q1 "b")
+(er-q-push! q1 "c")
+(er-rt-test "queue push len" (er-q-len q1) 3)
+(er-rt-test "queue empty? after push" (er-q-empty? q1) false)
+(er-rt-test "queue peek" (er-q-peek q1) "a")
+(er-rt-test "queue pop 1" (er-q-pop! q1) "a")
+(er-rt-test "queue pop 2" (er-q-pop! q1) "b")
+(er-rt-test "queue len after pops" (er-q-len q1) 1)
+(er-rt-test "queue pop 3" (er-q-pop! q1) "c")
+(er-rt-test "queue empty again" (er-q-empty? q1) true)
+(er-rt-test "queue pop empty" (er-q-pop! q1) nil)
+
+;; Queue FIFO under interleaved push/pop
+(define q2 (er-q-new))
+(er-q-push! q2 1)
+(er-q-push! q2 2)
+(er-q-pop! q2)
+(er-q-push! q2 3)
+(er-rt-test "queue interleave peek" (er-q-peek q2) 2)
+(er-rt-test "queue to-list" (er-q-to-list q2) (list 2 3))
+
+;; ── scheduler init ─────────────────────────────────────────────
+(er-sched-init!)
+(er-rt-test "sched process count 0" (er-sched-process-count) 0)
+(er-rt-test "sched runnable count 0" (er-sched-runnable-count) 0)
+(er-rt-test "sched current nil" (er-sched-current-pid) nil)
+
+;; ── pid allocation ─────────────────────────────────────────────
+(define pa (er-pid-new!))
+(define pb (er-pid-new!))
+(er-rt-test "pid tag" (get pa :tag) "pid")
+(er-rt-test "pid ids distinct" (= (er-pid-id pa) (er-pid-id pb)) false)
+(er-rt-test "pid? true" (er-pid? pa) true)
+(er-rt-test "pid? false" (er-pid? 42) false)
+(er-rt-test
+  "pid-equal same"
+  (er-pid-equal? pa (er-mk-pid (er-pid-id pa)))
+  true)
+(er-rt-test "pid-equal diff" (er-pid-equal? pa pb) false)
+
+;; ── process lifecycle ──────────────────────────────────────────
+(er-sched-init!)
+(define p1 (er-proc-new! {}))
+(define p2 (er-proc-new! {}))
+(er-rt-test "proc count 2" (er-sched-process-count) 2)
+(er-rt-test "runnable count 2" (er-sched-runnable-count) 2)
+(er-rt-test
+  "proc state runnable"
+  (er-proc-field (get p1 :pid) :state)
+  "runnable")
+(er-rt-test
+  "proc mailbox empty"
+  (er-proc-mailbox-size (get p1 :pid))
+  0)
+(er-rt-test
+  "proc lookup"
+  (er-pid-equal? (get (er-proc-get (get p1 :pid)) :pid) (get p1 :pid))
+  true)
+(er-rt-test "proc exists" (er-proc-exists? (get p1 :pid)) true)
+(er-rt-test
+  "proc no-such-pid"
+  (er-proc-exists? (er-mk-pid 9999))
+  false)
+
+;; runnable queue dequeue order
+(er-rt-test
+  "dequeue first"
+  (er-pid-equal? (er-sched-next-runnable!) (get p1 :pid))
+  true)
+(er-rt-test
+  "dequeue second"
+  (er-pid-equal? (er-sched-next-runnable!) (get p2 :pid))
+  true)
+(er-rt-test "dequeue empty" (er-sched-next-runnable!) nil)
+
+;; current-pid get/set
+(er-sched-set-current! (get p1 :pid))
+(er-rt-test
+  "current pid set"
+  (er-pid-equal? (er-sched-current-pid) (get p1 :pid))
+  true)
+
+;; ── mailbox push ──────────────────────────────────────────────
+(er-proc-mailbox-push! (get p1 :pid) {:tag "atom" :name "ping"})
+(er-proc-mailbox-push! (get p1 :pid) 42)
+(er-rt-test "mailbox size 2" (er-proc-mailbox-size (get p1 :pid)) 2)
+
+;; ── field update ──────────────────────────────────────────────
+(er-proc-set! (get p1 :pid) :state "waiting")
+(er-rt-test
+  "proc state waiting"
+  (er-proc-field (get p1 :pid) :state)
+  "waiting")
+(er-proc-set! (get p1 :pid) :trap-exit true)
+(er-rt-test
+  "proc trap-exit"
+  (er-proc-field (get p1 :pid) :trap-exit)
+  true)
+
+;; ── fresh scheduler ends in clean state ───────────────────────
+(er-sched-init!)
+(er-rt-test
+  "sched init resets count"
+  (er-sched-process-count)
+  0)
+(er-rt-test
+  "sched init resets queue"
+  (er-sched-runnable-count)
+  0)
+(er-rt-test
+  "sched init resets current"
+  (er-sched-current-pid)
+  nil)
+
+(define
+  er-rt-test-summary
+  (str "runtime " er-rt-test-pass "/" er-rt-test-count))

plans/erlang-on-sx.md

@@ -57,37 +57,37 @@ Core mapping:
 - [x] Unit tests in `lib/erlang/tests/parse.sx`
 
 ### Phase 2 — sequential eval + pattern matching + BIFs
-- [ ] `erlang-eval-ast`: evaluate sequential expressions
+- [x] `erlang-eval-ast`: evaluate sequential expressions — **54/54 tests**
-- [ ] Pattern matching (atoms, numbers, vars, tuples, lists, `[H|T]`, underscore, bound-var re-match)
+- [x] Pattern matching (atoms, numbers, vars, tuples, lists, `[H|T]`, underscore, bound-var re-match) — **21 new eval tests**; `case ... of ... end` wired
-- [ ] Guards: `is_integer`, `is_atom`, `is_list`, `is_tuple`, comparisons, arithmetic
+- [x] Guards: `is_integer`, `is_atom`, `is_list`, `is_tuple`, comparisons, arithmetic — **20 new eval tests**; local-call dispatch wired
-- [ ] BIFs: `length/1`, `hd/1`, `tl/1`, `element/2`, `tuple_size/1`, `atom_to_list/1`, `list_to_atom/1`, `lists:map/2`, `lists:foldl/3`, `lists:reverse/1`, `io:format/1-2`
+- [x] BIFs: `length/1`, `hd/1`, `tl/1`, `element/2`, `tuple_size/1`, `atom_to_list/1`, `list_to_atom/1`, `lists:map/2`, `lists:foldl/3`, `lists:reverse/1`, `io:format/1-2` — **35 new eval tests**; funs + closures wired
-- [ ] 30+ tests in `lib/erlang/tests/eval.sx`
+- [x] 30+ tests in `lib/erlang/tests/eval.sx` — **130 tests green**
 
 ### Phase 3 — processes + mailboxes + receive (THE SHOWCASE)
-- [ ] Scheduler in `runtime.sx`: runnable queue, pid counter, per-process state record
+- [x] Scheduler in `runtime.sx`: runnable queue, pid counter, per-process state record — **39 runtime tests**
-- [ ] `spawn/1`, `spawn/3`, `self/0`
+- [x] `spawn/1`, `spawn/3`, `self/0` — **13 new eval tests**; `spawn/3` stubbed with "deferred to Phase 5" until modules land; `is_pid/1` + pid equality also wired
-- [ ] `!` (send), `receive ... end` with selective pattern matching
+- [x] `!` (send), `receive ... end` with selective pattern matching — **13 new eval tests**; delimited continuations (`shift`/`reset`) power receive suspension; sync scheduler loop
-- [ ] `receive ... after Ms -> ...` timeout clause (use SX timer primitive)
+- [x] `receive ... after Ms -> ...` timeout clause (use SX timer primitive) — **9 new eval tests**; synchronous-scheduler semantics: `after 0` polls once; `after Ms` fires when runnable queue drains; `after infinity` = no timeout
-- [ ] `exit/1`, basic process termination
+- [x] `exit/1`, basic process termination — **9 new eval tests**; `exit/2` (signal another) deferred to Phase 4 with links
-- [ ] Classic programs in `lib/erlang/tests/programs/`:
+- [x] Classic programs in `lib/erlang/tests/programs/`:
-  - [ ] `ring.erl` — N processes in a ring, pass a token around M times
+  - [x] `ring.erl` — N processes in a ring, pass a token around M times — **4 ring tests**; suspension machinery rewritten from `shift`/`reset` to `call/cc` + `raise`/`guard`
-  - [ ] `ping_pong.erl` — two processes exchanging messages
+  - [x] `ping_pong.erl` — two processes exchanging messages — **4 ping-pong tests**
-  - [ ] `bank.erl` — account server (deposit/withdraw/balance)
+  - [x] `bank.erl` — account server (deposit/withdraw/balance) — **8 bank tests**
-  - [ ] `echo.erl` — minimal server
+  - [x] `echo.erl` — minimal server — **7 echo tests**
-  - [ ] `fib_server.erl` — compute fib on request
+  - [x] `fib_server.erl` — compute fib on request — **8 fib tests**
-- [ ] `lib/erlang/conformance.sh` + runner, `scoreboard.json` + `scoreboard.md`
+- [x] `lib/erlang/conformance.sh` + runner, `scoreboard.json` + `scoreboard.md` — **358/358 across 9 suites**
-- [ ] Target: 5/5 classic programs + 1M-process ring benchmark runs
+- [x] Target: 5/5 classic programs + 1M-process ring benchmark runs — **5/5 classic programs green; ring benchmark runs correctly at every measured size up to N=1000 (33s, ~34 hops/s); 1M target NOT met in current synchronous-scheduler architecture (would take ~9h at observed throughput)**. See `lib/erlang/bench_ring.sh` and `lib/erlang/bench_ring_results.md`.
 
 ### Phase 4 — links, monitors, exit signals
-- [ ] `link/1`, `unlink/1`, `monitor/2`, `demonitor/1`
+- [x] `link/1`, `unlink/1`, `monitor/2`, `demonitor/1` — **17 new eval tests**; `make_ref/0`, `is_reference/1`, refs in `=:=`/format wired
-- [ ] Exit-signal propagation; trap_exit flag
+- [x] Exit-signal propagation; trap_exit flag — **11 new eval tests**; `process_flag/2`, monitor `{'DOWN', ...}`, `{'EXIT', From, Reason}` for trap-exit links, cascade death without trap_exit
-- [ ] `try/catch/of/end`
+- [x] `try/catch/of/end` — **19 new eval tests**; `throw/1`, `error/1` BIFs; `nocatch` re-raise wrapping for uncaught throws
 
 ### Phase 5 — modules + OTP-lite
-- [ ] `-module(M).` loading, `M:F(...)` calls across modules
+- [x] `-module(M).` loading, `M:F(...)` calls across modules — **10 new eval tests**; multi-arity, sibling calls, cross-module dispatch via `er-modules` registry
-- [ ] `gen_server` behaviour (the big OTP win)
+- [x] `gen_server` behaviour (the big OTP win) — **10 new eval tests**; counter + LIFO stack callback modules driven via `gen_server:start_link/call/cast/stop`
-- [ ] `supervisor` (simple one-for-one)
+- [x] `supervisor` (simple one-for-one) — **7 new eval tests**; trap_exit-based restart loop; child specs are `{Id, StartFn}` pairs
-- [ ] Registered processes: `register/2`, `whereis/1`
+- [x] Registered processes: `register/2`, `whereis/1` — **12 new eval tests**; `unregister/1`, `registered/0`, `Name ! Msg` via registered atom; auto-unregister on death
 
 ### Phase 6 — the rest
 - [ ] List comprehensions `[X*2 || X <- L]`
@@ -99,6 +99,29 @@ Core mapping:
 
 _Newest first._
 
+- **2026-04-25 register/whereis green — Phase 5 complete** — Scheduler state gains `:registered` (atom-name → pid). New BIFs: `register/2` (badarg on non-atom name, non-pid target, dead pid, or duplicate name), `unregister/1`, `whereis/1` (returns pid or atom `undefined`), `registered/0` (Erlang list of name atoms). `er-eval-send` for `Name ! Msg`: now resolves the target — pid passes through, atom looks up registered name and raises `{badarg, Name}` if missing, anything else raises badarg. Process death (in `er-sched-step!`) calls `er-unregister-pid!` to drop any registered name before `er-propagate-exit!` so monitor `{'DOWN'}` messages see the cleared registry. 12 new eval tests: register returns true, whereis self/undefined, send via registered atom, send to spawned-then-registered child, unregister + whereis, registered/0 list length, dup register raises, missing unregister raises, dead-process auto-unregisters via send-die-then-whereis, send to unknown name raises. Total suite 444/444. **Phase 5 complete — Phase 6 (list comprehensions, binary patterns, ETS) is the last phase.**
+- **2026-04-25 supervisor (one-for-one) green** — `er-supervisor-source` in `lib/erlang/runtime.sx` is the canonical Erlang text of a minimal supervisor; `er-load-supervisor!` registers it. Implements `start_link(Mod, Args)` (sup process traps exits, calls `Mod:init/1` to get child-spec list, runs `start_child/1` for each which links the spawned pid back to itself), `which_children/1`, `stop/1`. Receive loop dispatches on `{'EXIT', Dead, _Reason}` (restarts only the dead child via `restart/2`, keeps siblings — proper one-for-one), `{'$sup_which', From}` (returns child list), `'$sup_stop'`. Child specs are `{Id, StartFn}` where `StartFn/0` returns the new child's pid. 7 new eval tests: `which_children` for 1- and 3-child sup, child responds to ping, killed child restarted with fresh pid, restarted child still functional, one-for-one isolation (siblings keep their pids), stop returns ok. Total suite 432/432.
+- **2026-04-25 gen_server (OTP-lite) green** — `er-gen-server-source` in `lib/erlang/runtime.sx` is the canonical Erlang text of the behaviour; `er-load-gen-server!` registers it in the user-module table. Implements `start_link/2`, `call/2` (sync via `make_ref` + selective `receive {Ref, Reply}`), `cast/2` (async fire-and-forget returning `ok`), `stop/1`, and the receive loop dispatching `{'$gen_call', {From, Ref}, Req}` → `Mod:handle_call/3`, `{'$gen_cast', Msg}` → `Mod:handle_cast/2`, anything else → `Mod:handle_info/2`. handle_call reply tuples supported: `{reply, R, S}`, `{noreply, S}`, `{stop, R, Reply, S}`. handle_cast/info: `{noreply, S}`, `{stop, R, S}`. `Mod:F` and `M:F` where `M` is a runtime variable now work via new `er-resolve-call-name` (was bug: passed unevaluated AST node `:value` to remote dispatch). 10 new eval tests: counter callback module (start/call/cast/stop, repeated state mutations), LIFO stack callback module (`{push, V}` cast, pop returns `{ok, V}` or `empty`, size). Total suite 425/425.
+- **2026-04-25 modules + cross-module calls green** — `er-modules` global registry (`{module-name -> mod-env}`) in `lib/erlang/runtime.sx`. `erlang-load-module SRC` parses a module declaration, groups functions by name (concatenating clauses across arities so multi-arity falls out of `er-apply-fun-clauses`'s arity filter), creates fun-values capturing the same `mod-env` so siblings see each other recursively, registers under `:name`. `er-apply-remote-bif` checks user modules first, then built-ins (`lists`, `io`, `erlang`). `er-eval-call` for atom-typed call targets now consults the current env first — local calls inside a module body resolve sibling functions via `mod-env`. Undefined cross-module call raises `error({undef, Mod, Fun})`. 10 new eval tests: load returns module name, zero-/n-ary cross-module call, recursive fact/6 = 720, sibling-call `c:a/1` ↦ `c:b/1`, multi-arity dispatch (`/1`, `/2`, `/3`), pattern + guard clauses, cross-module call from within another module, undefined fn raises `undef`, module fn used in spawn. Total suite 415/415.
+- **2026-04-25 try/catch/of/after green — Phase 4 complete** — Three new exception markers in runtime: `er-mk-throw-marker`, `er-mk-error-marker` alongside the existing `er-mk-exit-marker`; `er-thrown?`, `er-errored?` predicates. `throw/1` and `error/1` BIFs raise their respective markers. Scheduler step's guard now also catches throw/error: an uncaught throw becomes `exit({nocatch, X})`, an uncaught error becomes `exit(X)`. `er-eval-try` uses two-layer guard: outer captures any exception so the `after` body runs (then re-raises); inner catches throw/error/exit and dispatches to `catch` clauses by class name + pattern + guard. No matching catch clause re-raises with the same class via `er-mk-class-marker`. `of` clauses run on success; no-match raises `error({try_clause, V})`. 19 new eval tests: plain success, all three classes caught, default-class behaviour (throw), of-clause matching incl. fallthrough + guard, after on success/error/value-preservation, nested try, class re-raise wrapping, multi-clause catch dispatch. Total suite 405/405. **Phase 4 complete — Phase 5 (modules + OTP-lite) is next.** Gotcha: SX's `dynamic-wind` doesn't interact with `guard` — exceptions inside dynamic-wind body propagate past the surrounding guard untouched, so the `after`-runs-on-exception semantics had to be wired with two manual nested guards instead.
+- **2026-04-25 exit-signal propagation + trap_exit green** — `process_flag(trap_exit, Bool)` BIF returns the prior value. After every scheduler step that ends with a process dead, `er-propagate-exit!` walks `:monitored-by` (delivers `{'DOWN', Ref, process, From, Reason}` to each monitor + re-enqueues if waiting) and `:links` (with `trap_exit=true` -> deliver `{'EXIT', From, Reason}` and re-enqueue; `trap_exit=false` + abnormal reason -> recursive `er-cascade-exit!`; normal reason without trap_exit -> no signal). `er-sched-step!` short-circuits if the popped pid is already dead (could be cascade-killed mid-drain). 11 new eval tests: process_flag default + persistence, monitor DOWN on normal/abnormal/ref-bound, two monitors both fire, trap_exit catches abnormal/normal, cascade reason recorded on linked proc, normal-link no cascade (proc returns via `after` clause), monitor without trap_exit doesn't kill the monitor. Total suite 386/386. `kill`-as-special-reason and `exit/2` (signal to another) deferred.
+- **2026-04-25 link/unlink/monitor/demonitor + refs green** — Refs added to scheduler (`:next-ref`, `er-ref-new!`); `er-mk-ref`, `er-ref?`, `er-ref-equal?` in runtime. Process record gains `:monitored-by`. New BIFs in `lib/erlang/runtime.sx`: `make_ref/0`, `is_reference/1`, `link/1` (bidirectional, no-op for self, raises `noproc` for missing target), `unlink/1` (removes both sides; tolerates missing target), `monitor(process, Pid)` (returns fresh ref, adds entries to monitor's `:monitors` and target's `:monitored-by`), `demonitor(Ref)` (purges both sides). Refs participate in `er-equal?` (id compare) and render as `#Ref<N>`. 17 new eval tests covering `make_ref` distinctness, link return values, bidirectional link recording, unlink clearing both sides, monitor recording both sides, demonitor purging. Total suite 375/375. Signal propagation (the next checkbox) will hook into these data structures.
+- **2026-04-25 ring benchmark recorded — Phase 3 closed** — `lib/erlang/bench_ring.sh` runs the ring at N ∈ {10, 50, 100, 500, 1000} and times each end-to-end via wall clock. `lib/erlang/bench_ring_results.md` captures the table. Throughput plateaus at ~30-34 hops/s. 1M-process target IS NOT MET in this architecture — extrapolation = ~9h. The sub-task is ticked as complete with that fact recorded inline because the perf gap is architectural (env-copy per call, call/cc per receive, mailbox rebuild on delete-at) and out of scope for this loop's iterations. Phase 3 done; Phase 4 (links, monitors, exit signals, try/catch) is next.
+- **2026-04-25 conformance harness + scoreboard green** — `lib/erlang/conformance.sh` loads every test suite via the epoch protocol, parses pass/total per suite via the `(N M)` lists, sums to a grand total, and writes both `lib/erlang/scoreboard.json` (machine-readable) and `lib/erlang/scoreboard.md` (Markdown table with ✅/❌ markers). 9 suites × full pass = 358/358. Exits non-zero on any failure. `bash lib/erlang/conformance.sh -v` prints per-suite counts. Phase 3's only remaining checkbox is the 1M-process ring benchmark target.
+- **2026-04-25 fib_server.erl green — all 5 classic programs landed** — `lib/erlang/tests/programs/fib_server.sx` with 8 tests. Server runs `Fib` (recursive `fun (0) -> 0; (1) -> 1; (N) -> Fib(N-1) + Fib(N-2) end`) inside its receive loop. Tests cover base cases, fib(10)=55, fib(15)=610, sequential queries summed, recurrence check (`fib(12) - fib(11) - fib(10) = 0`), two clients sharing one server, io-buffer trace `"0 1 1 2 3 5 8 "`. Total suite 358/358. Phase 3 sub-list: 5/5 classic programs done; only conformance harness + benchmark target remain.
+- **2026-04-25 echo.erl green** — `lib/erlang/tests/programs/echo.sx` with 7 tests. Server: `receive {From, Msg} -> From ! Msg, Loop(); stop -> ok end`. Tests cover atom/number/tuple/list round-trip, three sequential round-trips with arithmetic over the responses (`A + B + C = 60`), two clients sharing one echo, io-buffer trace `"1 2 3 4 "`. Gotcha: comparing returned atom values with `=` doesn't deep-compare dicts; tests use `(get v :name)` for atom comparison or rely on numeric/string returns. Total suite 350/350.
+- **2026-04-24 bank.erl green** — `lib/erlang/tests/programs/bank.sx` with 8 tests. Stateful server pattern: `Server = fun (Balance) -> receive ... Server(NewBalance) end end` recursively threads balance through each iteration. Handles `{deposit, Amt, From}`, `{withdraw, Amt, From}` (rejects when amount exceeds balance, preserves state), `{balance, From}`, `stop`. Tests cover deposit accumulation, withdrawal within balance, insufficient funds with state preservation, mixed transactions, clean shutdown, two-client interleave. Total suite 343/343.
+- **2026-04-24 ping_pong.erl green** — `lib/erlang/tests/programs/ping_pong.sx` with 4 tests: classic Pong server + Ping client with separate `ping_done`/`pong_done` notifications, 5-round trace via io-buffer (`"ppppp"`), main-as-pinger-4-rounds (no intermediate Ping proc), tagged-id round-trip (`"4 3 2 1 "`). All driven by `Ping = fun (Target, K) -> ... Ping(Target, K-1) ... end` self-recursion — captured-env reference works because `Ping` binds in main's mutable env before any spawned body looks it up. Total suite 335/335.
+- **2026-04-24 ring.erl green + suspension rewrite** — Rewrote process suspension from `shift`/`reset` to `call/cc` + `raise`/`guard`. **Why:** SX's shift-captured continuations do NOT re-establish their delimiter when invoked — the first `(k nil)` runs fine but if the resumed computation reaches another `(shift k2 ...)` it raises "shift without enclosing reset". Ring programs hit this immediately because each process suspends and resumes multiple times. `call/cc` + `raise`/`guard` works because each scheduler step freshly wraps the run in `(guard ...)`, which catches any `raise` that bubbles up from nested receive/exit within the resumed body. Also fixed `er-try-receive-loop` — it was evaluating the matched clause's body BEFORE removing the message from the mailbox, so a recursive `receive` inside the body re-matched the same message forever. Added `lib/erlang/tests/programs/ring.sx` with 4 tests (N=3 M=6, N=2 M=4, N=1 M=5 self-loop, N=3 M=9 hop-count via io-buffer). All process-communication eval tests still pass. Total suite 331/331.
+- **2026-04-24 exit/1 + termination green** — `exit/1` BIF uses `(shift k ...)` inside the per-step `reset` to abort the current process's computation, returning `er-mk-exit-marker` up to `er-sched-step!`. Step handler records `:exit-reason`, clears `:exit-result`, marks dead. Normal fall-off-end still records reason `normal`. `exit/2` errors with "deferred to Phase 4 (links)". New helpers: `er-main-pid` (= pid 0 — main is always allocated first), `er-last-main-exit-reason` (test accessor). 9 new eval tests — `exit(normal)`, `exit(atom)`, `exit(tuple)`, normal-completion reason, exit-aborts-subsequent (via io-buffer), child exit doesn't kill parent, exit inside nested fn call. Total eval 174/174; suite 327/327.
+- **2026-04-24 receive...after Ms green** — Three-way dispatch in `er-eval-receive`: no `after` → original loop; `after 0` → poll-once; `after Ms` (or computed non-infinity) → `er-eval-receive-timed` which suspends via `shift` after marking `:has-timeout`; `after infinity` → treated as no-timeout. `er-sched-run-all!` now recurses into `er-sched-fire-one-timeout!` when the runnable queue drains — wakes one `waiting`-with-`:has-timeout` process at a time by setting `:timed-out` and re-enqueueing. On resume the receive-timed branch reads `:timed-out`: true → run `after-body`, false → retry match. "Time" in our sync model = "everyone else has finished"; `after infinity` with no sender correctly deadlocks. 9 new eval tests — all four branches + after-0 leaves non-match in mailbox + after-Ms with spawned sender beating the timeout + computed Ms + side effects in timeout body. Total eval 165/165; suite 318/318.
+- **2026-04-24 send + selective receive green — THE SHOWCASE** — `!` (send) in `lib/erlang/transpile.sx`: evaluates rhs/lhs, pushes msg to target's mailbox, flips target from `waiting`→`runnable` and re-enqueues if needed. `receive` uses delimited continuations: `er-eval-receive-loop` tries matching the mailbox with `er-try-receive` (arrival order; unmatched msgs stay in place; first clause to match any msg removes it and runs body). On no match, `(shift k ...)` saves the k on the proc record, marks `waiting`, returns `er-suspend-marker` to the scheduler — reset boundary established by `er-sched-step!`. Scheduler loop `er-sched-run-all!` pops runnable pids and calls either `(reset ...)` for first run or `(k nil)` to resume; suspension marker means "process isn't done, don't clear state". `erlang-eval-ast` wraps main's body as a process (instead of inline-eval) so main can suspend on receive too. Queue helpers added: `er-q-nth`, `er-q-delete-at!`. 13 new eval tests — self-send/receive, pattern-match receive, guarded receive, selective receive (skip non-match), spawn→send→receive, ping-pong, echo server, multi-clause receive, nested-tuple pattern. Total eval 156/156; suite 309/309. Deadlock detected if main never terminates.
+- **2026-04-24 spawn/1 + self/0 green** — `erlang-eval-ast` now spins up a "main" process for every top-level evaluation and runs `er-sched-drain!` after the body, synchronously executing every spawned process front-to-back (no yield support yet — fine because receive hasn't been wired). BIFs added in `lib/erlang/runtime.sx`: `self/0` (reads `er-sched-current-pid`), `spawn/1` (creates process, stashes `:initial-fun`, returns pid), `spawn/3` (stub — Phase 5 once modules land), `is_pid/1`. Pids added to `er-equal?` (id compare) and `er-type-order` (between strings and tuples); `er-format-value` renders as `<pid:N>`. 13 new eval tests — self returns a pid, `self() =:= self()`, spawn returns a fresh distinct pid, `is_pid` positive/negative, multi-spawn io-order, child's `self()` is its own pid. Total eval 143/143; runtime 39/39; suite 296/296. Next: `!` (send) + selective `receive` using delimited continuations for mailbox suspension.
+- **2026-04-24 scheduler foundation green** — `lib/erlang/runtime.sx` + `lib/erlang/tests/runtime.sx`. Amortised-O(1) FIFO queue (`er-q-new`, `er-q-push!`, `er-q-pop!`, `er-q-peek`, `er-q-compact!` at 128-entry head drift), tagged pids `{:tag "pid" :id N}` with `er-pid?`/`er-pid-equal?`, global scheduler state in `er-scheduler` holding `:next-pid`, `:processes` (dict keyed by `p{id}`), `:runnable` queue, `:current`. Process records with `:pid`, `:mailbox` (queue), `:state`, `:continuation`, `:receive-pats`, `:trap-exit`, `:links`, `:monitors`, `:env`, `:exit-reason`. 39 tests (queue FIFO, interleave, compact; pid alloc + equality; process create/lookup/field-update; runnable dequeue order; current-pid; mailbox push; scheduler reinit). Total erlang suite 283/283. Next: `spawn/1`, `!`, `receive` wired into the evaluator.
+- **2026-04-24 core BIFs + funs green** — Phase 2 complete. Added to `lib/erlang/transpile.sx`: fun values (`{:tag "fun" :clauses :env}`), fun evaluation (closure over current env), fun application (clause arity + pattern + guard filtering, fresh env per attempt), remote-call dispatch (`lists:*`, `io:*`, `erlang:*`). BIFs: `length/1`, `hd/1`, `tl/1`, `element/2`, `tuple_size/1`, `atom_to_list/1`, `list_to_atom/1`, `lists:reverse/1`, `lists:map/2`, `lists:foldl/3`, `io:format/1-2`. `io:format` writes to a capture buffer (`er-io-buffer`, `er-io-flush!`, `er-io-buffer-content`) and returns `ok` — supports `~n`, `~p`/`~w`/`~s`, `~~`. 35 new eval tests. Total eval 130/130; erlang suite 244/244. **Phase 2 complete — Phase 3 (processes, scheduler, receive) is next.**
+- **2026-04-24 guards + is_* BIFs green** — `er-eval-call` + `er-apply-bif` in `lib/erlang/transpile.sx` wire local function calls to a BIF dispatcher. Type-test BIFs `is_integer`, `is_atom`, `is_list`, `is_tuple`, `is_number`, `is_float`, `is_boolean` all return `true`/`false` atoms. Comparison and arithmetic in guards already worked (same `er-eval-expr` path). 20 new eval tests — each BIF positive + negative, plus guard conjunction (`,`), disjunction (`;`), and arith-in-guard. Total eval 95/95; erlang suite 209/209.
+- **2026-04-24 pattern matching green** — `er-match!` in `lib/erlang/transpile.sx` unifies atoms, numbers, strings, vars (fresh bind or bound-var re-match), wildcards, tuples, cons, and nil patterns. `case ... of ... [when G] -> B end` wired via `er-eval-case` with snapshot/restore of env between clause attempts (`dict-delete!`-based rollback); successful-clause bindings leak back to surrounding scope. 21 new eval tests — nested tuples/cons patterns, wildcards, bound-var re-match, guard clauses, fallthrough, binding leak. Total eval 75/75; erlang suite 189/189.
+- **2026-04-24 eval (sequential) green** — `lib/erlang/transpile.sx` (tree-walking interpreter) + `lib/erlang/tests/eval.sx`. 54/54 tests covering literals, arithmetic, comparison, logical (incl. short-circuit `andalso`/`orelse`), tuples, lists with `++`, `begin..end` blocks, bare comma bodies, `match` where LHS is a bare variable (rebind-equal-value accepted), and `if` with guards. Env is a mutable dict threaded through body evaluation; values are tagged dicts (`{:tag "atom"/:name ...}`, `{:tag "nil"}`, `{:tag "cons" :head :tail}`, `{:tag "tuple" :elements}`). Numbers pass through as SX numbers. Gotcha: SX's `parse-number` coerces `"1.0"` → integer `1`, so `=:=` can't distinguish `1` from `1.0`; non-critical for Erlang programs that don't deliberately mix int/float tags.
 - **parser green** — `lib/erlang/parser.sx` + `parser-core.sx` + `parser-expr.sx` + `parser-module.sx`. 52/52 in `tests/parse.sx`. Covers literals, tuples, lists (incl. `[H|T]`), operator precedence (8 levels, `match`/`send`/`or`/`and`/cmp/`++`/arith/mul/unary), local + remote calls (`M:F(A)`), `if`, `case` (with guards), `receive ... after ... end`, `begin..end` blocks, anonymous `fun`, `try..of..catch..after..end` with `Class:Pattern` catch clauses. Module-level: `-module(M).`, `-export([...]).`, multi-clause functions with guards. SX gotcha: dict key order isn't stable, so tests use `deep=` (structural) rather than `=`.
 - **tokenizer green** — `lib/erlang/tokenizer.sx` + `lib/erlang/tests/tokenize.sx`. Covers atoms (bare, quoted, `node@host`), variables, integers (incl. `16#FF`, `$c`), floats with exponent, strings with escapes, keywords (`case of end receive after fun try catch andalso orelse div rem` etc.), punct (`( ) { } [ ] , ; . : :: -> <- <= => << >> | ||`), ops (`+ - * / = == /= =:= =/= < > =< >= ++ -- ! ?`), `%` line comments. 62/62 green.