From 75f7692f10d7d05aaffe48cea5348086f34932da Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 14 Apr 2026 00:30:01 +0100
Subject: Remove duplicate tool call status update.

---
 kaagum/tea.scm | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/kaagum/tea.scm b/kaagum/tea.scm
index efcc212..8c6be2d 100644
--- a/kaagum/tea.scm
+++ b/kaagum/tea.scm
@@ -519,21 +519,6 @@ and a list of effects."
                                    rejected-tools))
                              <>)
                        ;; Update tool status.
-                       (put (compose tool-call-status
-                                     (state-tool-call (tool-call-id tool-call)
-                                                      session-id))
-                            (cond
-                             ((eq? selection 'cancel) 'cancelled)
-                             ((memq selection '(allow-once allow-always))
-                              'approved)
-                             ((memq selection '(reject-once reject-always))
-                              'rejected)
-                             ;; This branch should be unreachable.
-                             (else
-                              (assertion-violation selection
-                                                   "Invalid selection")))
-                            <>)
-                       ;; Update tool status.
                        (put (compose tool-call-status
                                      (state-tool-call (tool-call-id tool-call)
                                                       session-id))
-- 
cgit 1.4.1