T1: the seat settle applies a delayed nak with the bus's own delay (ADR 0664 §1, issue 1748)

Claude-Session: https://claude.ai/code/session_01JG73KEq4zoDfM9WtYpcQgZ

node-tools/internal/runtime/runtime.go

@@ -1256,8 +1256,10 @@ type seatAsked struct {
 	Bucket  string          `json:"bucket"`
 	Key     string          `json:"key"`
 	// WaitMS is how long a pull waits for a message (none when 0); Fate what a settle gives one (issue 1887 A11).
-	WaitMS int    `json:"wait_ms"`
-	Fate   string `json:"fate"`
+	WaitMS int `json:"wait_ms"`
+	// DelayMS is how long a settle with the fate nak-after waits before the bus gives the message again.
+	DelayMS int64  `json:"delay_ms"`
+	Fate    string `json:"fate"`
 }
 
 // Seat answers a bundle's seat traffic, each as the module and only as far as its membership lists:
@@ -1300,7 +1302,13 @@ func (b *moduleBus) Seat(verb string, params json.RawMessage, handOn func(string
 		}
 		return json.Marshal(p)
 	case "settle":
-		if err := conn.SeatSettle(b.module, asked.ID, asked.Fate); err != nil {
+		settle := func() error { return conn.SeatSettle(b.module, asked.ID, asked.Fate) }
+		if asked.Fate == bus.SettleNakAfter {
+			settle = func() error {
+				return conn.SeatSettleAfter(b.module, asked.ID, time.Duration(asked.DelayMS)*time.Millisecond)
+			}
+		}
+		if err := settle(); err != nil {
 			return nil, err
 		}
 		return json.RawMessage(`{}`), nil

node-tools/internal/runtime/seat_traffic_test.go

@@ -202,6 +202,17 @@ func TestABundlePullsAndSettlesThroughItsModulesBus(t *testing.T) {
 	if _, err := elsewhere.Seat("settle", json.RawMessage(`{"id":"`+p.ID+`","fate":"ack"}`), nil); err == nil {
 		t.Fatal("another module settled the pulled ask")
 	}
+	// Issue 1748: a settle with the fate nak-after and no delay settles nothing; with a delay the ask comes again.
+	if _, err := building.Seat("settle", json.RawMessage(`{"id":"`+p.ID+`","fate":"nak-after"}`), nil); err == nil {
+		t.Fatal("a delayed nak without a delay was accepted")
+	}
+	if _, err := building.Seat("settle", json.RawMessage(`{"id":"`+p.ID+`","fate":"nak-after","delay_ms":100}`), nil); err != nil {
+		t.Fatal(err)
+	}
+	raw, err = building.Seat("pull", json.RawMessage(`{"worker":"SEAT_NODE_BUILD_GO_DELIVERY_worker","wait_ms":2000}`), nil)
+	if err != nil || json.Unmarshal(raw, &p) != nil || p.Delivered != 2 {
+		t.Fatalf("the ask given again after its delay = %s, %v", raw, err)
+	}
 	if _, err := building.Seat("settle", json.RawMessage(`{"id":"`+p.ID+`","fate":"ack"}`), nil); err != nil {
 		t.Fatal(err)
 	}