agenda: Fix prompt buildup in agenda.
authorChristopher Allan Webber <cwebber@dustycloud.org>
Wed, 28 Dec 2016 16:33:19 +0000 (10:33 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Wed, 28 Dec 2016 16:33:19 +0000 (10:33 -0600)
commit8f95d94e4963d0c61a9435a078f2b6496e31c7cf
tree75b6037dda9c5f43c8c91bbdc08a6b6d1c421ba4
parent8cee13ea88f6852ee1f542e1f7bdb7709bfe9505
agenda: Fix prompt buildup in agenda.

Every time a delimited continuation was resumed, we were re-parameterizing.

* 8sync/agenda.scm (current-agenda-prompt): Remove.
(8sync-abort-to-prompt): Use (%current-agenda-prompt) parameter.
(%current-agenda-prompt): New prompt, deprecating %current-agenda.  This
is a slight optimization; we were only using the agenda for the prompt,
so we can remove the indirection of looking up the agenda prompt tag
every time.
(%current-agenda): Removed, see above.
(start-agenda): Move parameterization of %current-agenda-prompt,
current-read-waiter, and current-write-waiter here.
(agenda-run-once!): Remove parameterization.
Also remove comment which is irrelevant now that we're no longer using
an immutable-record-type on the agenda.
8sync/agenda.scm