diff options
| author | Arun Isaac | 2026-08-06 02:11:23 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-08-06 02:11:23 +0100 |
| commit | 1a8ce38a169e3b2fe3d0fe175ec8a03464cab0e5 (patch) | |
| tree | ce2455de64f6f30f757d2d1e1944244240b51571 | |
| parent | 092ca7ab12bd0cc2dee1721d84d78a61d75d4aca (diff) | |
| download | kaagum-1a8ce38a169e3b2fe3d0fe175ec8a03464cab0e5.tar.gz kaagum-1a8ce38a169e3b2fe3d0fe175ec8a03464cab0e5.tar.lz kaagum-1a8ce38a169e3b2fe3d0fe175ec8a03464cab0e5.zip | |
tea: Let end-turn-effects accept a stop reason argument.
| -rw-r--r-- | kaagum/tea.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kaagum/tea.scm b/kaagum/tea.scm index 1ac674e..d6108da 100644 --- a/kaagum/tea.scm +++ b/kaagum/tea.scm @@ -495,7 +495,7 @@ in @code{tea-loop}." ;; slash commands cannot send LLM requests ;; or initiate other exchanges. (end-turn-effects - (end-turn-effects session-id models))) + (end-turn-effects session-id models "end_turn"))) (state-return (append slash-command-effects end-turn-effects)))))) @@ -740,7 +740,7 @@ session with @var{session-id}. ("status" . "pending")))))) effects)))))))) -(define (end-turn-effects session-id models) +(define (end-turn-effects session-id models stop-reason) "Return the state-monadic list of effects for ending the turn of session with @var{session-id}. @@ -779,7 +779,7 @@ session with @var{session-id}. ("id" . ,(focus state-client-request-id state)) ("result" - ("stopReason" . "end_turn") + ("stopReason" . ,stop-reason) ;; Report usage if it is non-zero. Usage can ;; be zero if turn was for a slash command. ,@(if (any (negate zero?) @@ -883,7 +883,7 @@ in @code{tea-loop}." state)) ;; … and a cancellation is not in progress; end turn. (state-let* ((end-turn-effects - (end-turn-effects session-id models))) + (end-turn-effects session-id models "end_turn"))) (state-return (append effects end-turn-effects))) ;; Else, return what we have so far. (state-return effects))) |