diff options
| -rw-r--r-- | kaakaa/tea.scm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/kaakaa/tea.scm b/kaakaa/tea.scm index a5ae456..57526bc 100644 --- a/kaakaa/tea.scm +++ b/kaakaa/tea.scm @@ -105,14 +105,19 @@ (lambda (state session-id _) (values state (list (agent-message-chunk session-id - (focus (compose session-cwd - (key-ref session-id) - state-sessions) + (focus (state-cwd session-id) state))))))) (define %commands `(("cwd" . ,%cwd-command))) +(define (state-cwd session-id) + "Return a lens to focus on current working directory of session with +@var{session-id} in state." + (compose session-cwd + (key-ref session-id) + state-sessions)) + (define (state-messages session-id) "Return a lens to focus on messages of session with @var{session-id} in state." (compose session-messages @@ -397,9 +402,7 @@ and a list of effects. ("toolCallId" . ,call-id) ("status" . "failed")))))))))) (let ((call (spec->tool-call session-id - (focus (compose session-cwd - (key-ref session-id) - state-sessions) + (focus (state-cwd session-id) state) tools call-json)) |