safety commit

2026-10-19 06:35:46 -04:00
parent 63434f3762
commit 5707b07abf
12 changed files with 122 additions and 75 deletions
@@ -9,11 +9,11 @@ Block 8000
 ( n -- n flag    a node there is, and not Hera herself       )
 : (THERE?) DUP (ME) @ = 0= OVER NODE-PLACE 0< 0= AND ;
 : (NO-NODE) ( n -- ) DROP ." no such node" CR -1 NODE-ERROR ! ;
-( n --   KILL: node n is removed, whatever it was doing; this )
-( node forgets the way to it, and GONE goes down the graph.   )
+( n --   KILL: node n is removed, whatever it was doing; the  )
+( kernel tells every node it is gone, and Hera forgets it.    )
 : KILL ( n -- )
  (THERE?) 0= IF ." KILL: " (NO-NODE) THEN
-  DUP NODE-KILL  DUP NO-ROUTE  GONE-DOWN ;
+  DUP NODE-KILL  NO-ROUTE ;
 Block 8001
 : PAUSE ( n -- )
  (THERE?) 0= IF ." PAUSE: " (NO-NODE) THEN NODE-SLEEP ;