From 1c42e0cc4fa7fca91cf4030260bde447c14f55e8 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 18 Apr 2026 01:11:29 +0100
Subject: Set client request ID in state before serving request.

---
 kaagum/tea.scm | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/kaagum/tea.scm b/kaagum/tea.scm
index 51f569d..de172c5 100644
--- a/kaagum/tea.scm
+++ b/kaagum/tea.scm
@@ -767,18 +767,19 @@ in @code{tea-loop}."
           ;; message is a response from the client.
           (next-state-client-response state json-message)
           ;; message is a request/notification from the client.
-          (let-values (((state effects)
-                        (next-state-client-request state json-message models tools)))
-            (values (cond
-                     ;; message is a request from the client.
-                     ((focus (key-ref "id") json-message)
-                      => (cut put
-                              state-client-request-id
-                              <>
-                              state))
-                     ;; message is a notification from the client.
-                     (else state))
-                    effects)))))
+          (next-state-client-request (cond
+                                      ;; message is a request from the client.
+                                      ((focus (key-ref "id") json-message)
+                                       => (cut put
+                                               state-client-request-id
+                                               <>
+                                               state))
+                                      ;; message is a notification from the
+                                      ;; client.
+                                      (else state))
+                                     json-message
+                                     models
+                                     tools))))
    ((llm-response? message)
     (next-state-llm-response state message tools))
    ((tool-call-result? message)
-- 
cgit 1.4.1