From 9028c2caf111aa1030ba402f4116f33d898a6479 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 21 Oct 2021 08:16:23 -0400 Subject: scripting: agenda: Fix clear-agenda. Do not reset the time, and remember to clear the poll set! --- chickadee/scripting/agenda.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/chickadee/scripting/agenda.scm b/chickadee/scripting/agenda.scm index eb1fa65..5500dd4 100644 --- a/chickadee/scripting/agenda.scm +++ b/chickadee/scripting/agenda.scm @@ -59,7 +59,7 @@ (define (%agenda-clear! agenda) (heap-clear! (agenda-queue agenda)) - (set-agenda-time! agenda 0) + (hash-clear! (agenda-poll-set agenda)) *unspecified*) (define (%update-agenda agenda dt) -- cgit v1.2.3