diff options
| author | Arun Isaac | 2026-04-18 01:12:04 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-04-19 22:12:21 +0100 |
| commit | c1770f9740c318c3fdfc0d64a7d1b4b2c33c661f (patch) | |
| tree | 0c152407a08606bb92ce875a8dbef66beaaece9a | |
| parent | 1c42e0cc4fa7fca91cf4030260bde447c14f55e8 (diff) | |
| download | kaagum-c1770f9740c318c3fdfc0d64a7d1b4b2c33c661f.tar.gz kaagum-c1770f9740c318c3fdfc0d64a7d1b4b2c33c661f.tar.lz kaagum-c1770f9740c318c3fdfc0d64a7d1b4b2c33c661f.zip | |
Use request ID from state rather than from request object.
| -rw-r--r-- | kaagum/tea.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/kaagum/tea.scm b/kaagum/tea.scm index de172c5..3e7057b 100644 --- a/kaagum/tea.scm +++ b/kaagum/tea.scm @@ -314,8 +314,8 @@ a list of effects. @var{tools} is the same as in @code{run-tea-loop}. @var{models} is the same as in @code{tea-loop}." - (let ((request-id (focus (key-ref "id") - request))) + (let ((request-id (focus state-client-request-id + state))) (cond ;; There is a pending request from the client; process it. ((focus (key-ref "method") request) @@ -452,8 +452,7 @@ in @code{tea-loop}." '() <>)) (list (acp-message `(("jsonrpc" . "2.0") - ("id" . ,(focus state-client-request-id - state)) + ("id" . ,request-id) ("result" ("stopReason" . "cancelled"))))))))))))) |