diff options
| -rw-r--r-- | kaagum/tea.scm | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/kaagum/tea.scm b/kaagum/tea.scm index efcc212..8c6be2d 100644 --- a/kaagum/tea.scm +++ b/kaagum/tea.scm @@ -533,21 +533,6 @@ and a list of effects." (assertion-violation selection "Invalid selection"))) <>) - ;; 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"))) - <>) ;; If the tool call was cancelled, set the cancelling flag ;; to indicate that a cancellation is in progress. (put (state-session-cancelling? session-id) |