DRAFT irc: Remove 0.4.2 interface.  -- after 0.5.0 release.

* 8sync/systems/irc.scm (default-irc-port, irc-eol): Remove variables.
(<irc-bot>)[actions]: Remove handle-line message handler.
(handle-line, handle-misc-input): Remove old handler methods.
(handle-message): Remove fall-backs for them.
(irc-bot-send-line, startswith-colon?, parse-line,
strip-colon-if-necessary, irc-line-username, condense-privmsg-line):
Remove old helper procedures.

DRAFT doc: Update `NEWS'.

* NEWS (8sync 0.5.0): New section.

irc: Make irc-bot-init, irc-bot-cleanup methods.

A bot likely needs to override these.

* 8sync/systems/irc.scm (irc-bot-init, irc-bot-cleanup): Change
procedures to methods.

demos: irc-bot: Refactor message handling using new handle-message.

* demos/ircbot.scm (handle-line): Rename to...
(handle-message): ...this, and refactor.
* doc/8sync.texi (An intermission on live hacking): Update
accordingly.

irc: Refactor using (8sync contrib irc) library from Snuik.

Switch to new IRC library while retaining 0.4.2 api compatibility.

* 8sync/systems/irc.scm: Rewrite using low level irc functions
from (8sync contrib irc).
(irc-socket-setup): Remove,
(<irc-bot>): Update to use %irc:default-port.  Add dispatch-message
handler.
(irc-bot-init): Refactor using irc:listen, irc:user, irc:nick.
(irc-bot-main-loop): Dispatch to...
(dispatch-message): ...this new message handler.
(handle-message): New overridable handler.  Invoke legacy
handle-misc-input and handle-line handlers for PRIVMSG.

demos: ircbot: Do not assume /usr/bin/guile.

* demos/ircbot.scm: Use /usr/bin/env shebang.

Import (8sync contrib irc) library from Snuik.

Snuik was created using 8sync, imported (8sync contrib irc) to
override it locally for Snuik, refactored parsing, moved irc
procedures out to this library.

* 8sync/contrib/irc.scm: New file.
* Makefile.am (SOURCES): Add it.

irc: Avoid connecting to #f socket, attempt reconnect.

* 8sync/systems/irc.scm (irc-socket-setup): Only connect to a valid
socket.  Retry if connecting fails.

irc: Log to standard error.

* 8sync/systems/irc.scm (echo-message): Add #:port parameter.
(handle-line): Use it to echo to stderr.

guix: Update instructions with guix shell.

* guix.scm: Replace guix environment comment with guix shell.

websocket: Queue fragmented frames to avoid interleaving.

* 8sync/systems/websocket/client.scm (<websocket>)[frames]: New slot.
(websocket-send): Use it to queue fragmented frames.

Acked-by: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>

websocket: Gracefully handle read errors and socket close.

* 8sync/systems/websocket/client.scm (websocket-socket-open?): New
method.
(websocket-loop): Use it to gracefully handle errors socket close.

mingw: Hack for missing /dev/urandom.

* 8sync/systems/websocket/client.scm (open-entropy-port): Add hack for
missing /dev/urandom.

mingw: Avoid SIGPIPE.

* 8sync/systems/web.scm (initialize): Only set SIGPIPE if it is
available.

agenda: Handle wrong-type-arg in select.

This fixes

Backtrace:
          10 (apply-smob/1 #<catch-closure 7fca5dcad920>)
In ice-9/boot-9.scm:
    705:2  9 (call-with-prompt _ _ #<procedure default-prompt-handler (k proc)>)
In ice-9/eval.scm:
    619:8  8 (_ #(#(#<directory (guile-user) 7fca5d93f140>)))
In ice-9/boot-9.scm:
   2312:4  7 (save-module-excursion _)
  3832:12  6 (_)
In 8sync/actors.scm:
    812:6  5 (run-hive #<<hive> 7fca5d977190> _ #:cleanup _ #:handle-signals _)
In ice-9/control.scm:
    91:24  4 (call-with-escape-continuation _)
In 8sync/agenda.scm:
    569:6  3 (run-agenda #<<agenda> queue: (() . #f) prompt-tag: ("prompt") read-port-map: #<hash-table 7fca5…> …)
    470:7  2 (update-agenda-from-select! #<<agenda> queue: (() . #f) prompt-tag: ("prompt") read-port-map: #<h…>)
In ice-9/boot-9.scm:
    829:9  1 (catch system-error #<procedure 7fca5bf1ab70 at 8sync/agenda.scm:471:9 ()> #<procedure 7fca5cd09…> …)
In unknown file:
           0 (select (#<closed: file 7fca5b077380> #<input-output: socket 11>) (#<closed: file 7fca5b077380>) # …)

ERROR: In procedure select:
In procedure select: Wrong type argument in position 1: #<closed: file 7fca5b077380>

* 8sync/agenda.scm (update-agenda-from-select!): Catch everything.

websocket: Support for sending fragmented frames.

* 8sync/systems/websocket/frame.scm (make-text-frame): Add keyword
parameters final and continuation.
(make-binary-frame): Likewise.
* 8sync/systems/websocket/client.scm (make-fragmented-frames): New
function.
(websocket-send): Use it to send fragmented frames.

websocket: Initial <websocket> client actor support.

* 8sync/systems/websocket/client.scm (no-op): New procedure.
(<websocket>): Change from record to actor and use it.
(websocket-init): New method.
(set-nonblocking!): New procedure.
(make-client-socket): Use it.
(make-websocket): Rename to...
(websocket-open): ...this new method and change accordingly.
(close-websocket): Rename to ...
(websocket-close): ...this new method and change accordingly.
(handshake, websocket-send, websocket-connecting, websocket-open?,
websocket-closing?, websocket-closed?): Change to method and update
accordingly.
(display-websocket): Move to...
(write)[<websocket]: ...this new specialization.
(set-record-type-printer!): Remove.
(websocket-loop): Renamed from...
* 8sync/systems/websocket/server.scm (websocket-client-loop): ...here.
(make-websocket-actor): New procedure.
(<websocket-server>): Call it for websocket upgrade, create new
<websocket> actor.
* demos/websocket/8s-client.scm,
demos/websocket/8s-server.scm,
demos/websocket/ws-client.js,
demos/websocket/ws-server.js: New files.
* Makefile.am (EXTRA_DIST): Add them.

guix: Use guile-3.0.

* guix.scm (name)[native-inputs]: Remove guile.
[inputs]: New field, add guile-3.0.

websocket: server: Remove .upgrade-paths accessor.

* 8sync/systems/websocket/server.scm (<websocket-server>): Remove
.upgrade-paths accessor.  There's a method for doing this.

Support for guile-3.0.5: Move test-exit inside srfi-64 test.

* tests/test-actors.scm,
tests/test-agenda.scm,
tests/test-rmeta-slot.scm (test-exit): Move inside test, where
'test-runner-current' is still set.

websocket: Oops, avoid looping.

* 8sync/systems/websocket/server.scm (websocket-client-loop): Oops,
avoid looping.

build: Support cross building.

* configure.ac: Add AC_CANONICAL_HOST to get host.
* Makefile.am (.scm.go): Set it as target.

build: Prepare for guile 3.

* configure.ac: Check for guile 3.0 too.
* Makefile.am: Install in site-ccache.

Do not read a frame past EOF.

* 8sync/systems/websocket/frame.scm (read-frame): Handle EOF.

websocket: Also concatenate last fragmented frame.

* 8sync/systems/websocket/server.scm (websocket-client-loop): Also add
final fragmented frame.

web server: Treat upgrade requests as case-insensitive.

* 8sync/systems/web.scm (maybe-upgrade-request): Compare using
string-ci=?  Fixes upgrade request for "WebSocket".

doc: Fix initial sleeper.

* doc/8sync.texi (Writing our own actors): Add missing slot to initial
sleeper example.

guix: Bump to guile-2.2

* guix.scm (name): Bump to 2.2.

8sync 0.4.2

Add NEWS for 8sync 0.4.2

build: guix.scm: Use git-predicate procedure from Guix proper.

* guix.scm: Use git-predicate procedure from Guix to define source.

web: Remove web-deprecated.scm.

* 8sync/systems/web-deprecated.scm: Removed file.

websocket: Preventing some eof-object related errors.

* 8sync/systems/websocket/server.scm (websocket-client-loop):
Prevent some errors where eof-objects appear as the frame by
the time we hit the cond.

actors: Avoid building up stack of error handlers when resuming coroutines.

However it's not clear that we're not still building up a stack of
prompts. :\

* 8sync/actors.scm (hive-process-message): Avoid building up stack of
error handlers when resuming coroutines.

agenda: Always set sec/usec to exact time.

* 8sync/agenda.scm (delayed-time): Always set sec/usec to exact time.

rmeta-slot: Rename wrap-rmeta-slot to build-rmeta-slot.

* 8sync/rmeta-slot.scm (build-rmeta-slot): Renamed from wrap-rmeta-slot.
(make-rmeta-slot): Removed.
* 8sync/actors.scm (build-actions): Update caller to build-rmeta-slot.
* tests/test-rmeta-slot.scm: Update tests.

actors: Switch over to using wrap-rmeta-slot for build-actions.

* 8sync/rmeta-slot.scm (wrap-rmeta-slot): New variable.

* 8sync/actors.scm (build-actions): Switch from using make-rmeta-slot
to using wrap-rmeta-slot.

* doc/8sync.texi (Writing our own actors): Update documentation
to use #:init-thunk.

* 8sync/actors.scm (<actor>, define-actor, <hive>):
* 8sync/systems/irc.scm (<irc-bot>):
* demos/actors/robotscanner.scm (<warehouse-room>, <droid>):
* tests/test-actors.scm (<hi-on-init>):
* tests/test-rmeta-slot.scm (<kah-lassy>, <sub-lassy>): Update to
use #:init-thunk instead of #:init-value on actions slot.

actors: Use rmeta-slot for actions dispatch.

* 8sync/actors.scm (actor-inheritable-message-handler, build-actions):
Use rmeta-slot tooling for action dispatch.

rmeta-slot: Make equal? type hash table access the default.

This is the more general case, so we may as well.

* 8sync/rmeta-slot.scm (class-rmeta-ref): Set #:equals?, #:cache-set!,
and #:cache-ref all to equal? type access rather than eq? by default.

rmeta-slot: New module for recursive meta-slot access.

This is an abstraction around the core idea driving the actor actions
system.  It turns out I need this abstraction for mudsync as well, so
I'm breaking it out.  Pleasantly, it should be much faster now, since
a cache is built for each class regarding what key should resolve to
what value.

* 8sync/rmeta-slot.scm:
* tests/test-rmeta-slot.scm: New modules.
* Makefile.am: Add them.

websocket: Adding myself to server copyright lines.

* 8sync/systems/websocket/server.scm: Adjust copyright lines.

websockets: Initial websocket support.

* 8sync/contrib/base64.scm:
* 8sync/contrib/sha-1.scm:
* 8sync/ports.scm:
* 8sync/systems/websocket.scm:
* 8sync/systems/websocket/client.scm:
* 8sync/systems/websocket/frame.scm:
* 8sync/systems/websocket/server.scm:
* 8sync/systems/websocket/utils.scm: New files.

* Makefile.am (SOURCES): Add them.

* 8sync/systems/web.scm (<web-server>): Rename upgrade slot to
upgrade-paths and use it.
(.upgrade-paths, maybe-upgrade-request): New variables.
(web-server-client-loop): Upgrade protocol if appropriate.

actors: Allow actors to specify whether to handle an *init* action.

* 8sync/actors.scm (<actor>): New should-init slot.
(hive-handle-init-all, %hive-create-actor): Respect 'should-init slot.

actors: Don't reply to a message when the messsage doesn't need a reply.

* 8sync/actors.scm (<-reply, <-reply*, <-reply-wait, <-reply-wait*):
Only reply to messages if they're waiting on a reply still.
This avoids the challenges of actors never having requested a
reply in the first place resulting in trying to resume a waiting
coroutine that doesn't exist, as well as maybe the bonus one of not
replying multiple times to a message.

repl: Publish notification about repl updates to subscribers.

* 8sync/repl.scm (<repl-manager>): Convert to use define-class.
Switch all getters accessors from `repl-manager-' prefix to
dot-prefix.
Add subscribers slot.
Add action handlers for add-subscriber and remove-subscriber.
(repl-manager-cleanup, repl-manager-init): Use dot-prefix
getters/accessors.
(repl-manager-init): Update to inform subscribers after every time
we poll the REPL.
(repl-manager-add-subscriber, repl-manager-remove-subscriber): New
procedures.

web: Rename getters / accessors to use dot prefix.

* 8sync/systems/web.scm (<web-server>, .host, .family, .port-num)
(.addr, .socket, .http-handler): Rename getters/accessors from
web-server- prefix to dot prefix.
(web-server-socket-loop, web-server-handle-request, web-server-cleanup):
Update callers.

web: Rename handler slot to http-handler.

* 8sync/systems/web.scm (<web-server>, web-server-handle-request):
Rename handler slot to http-handler.

Add define-method-star.

* 8sync/systems/define-method-star.scm: New file.

Update copyrights.

* 8sync/actors.scm:
* 8sync/agenda.scm:
* 8sync/debug.scm:
* 8sync/repl.scm:
* 8sync/systems/irc.scm:
* 8sync/systems/web.scm:
* Makefile.am:
* demos/actors/botherbotherbother.scm:
* demos/actors/robotscanner.scm:
* demos/actors/simplest-possible.scm:
* demos/ircbot.scm: Update copyright lines.

web: New actorified version of the web server.

* 8sync/systems/web.scm: New file.

actors: Update comments on addresses.

* 8sync/actors.scm: Updated comments on addresses.

build: Releasing 8sync 0.4.1.

* configure.ac: Bumping verison number to 0.4.1.

build: Fix install targets to point to Guile 2.2 instead of 2.0.

* Makefile.am (modir, godir): Fix install targets to point to Guile 2.2
instead of 2.0.

packaging: Updating guix.scm to GPLv3+, setting source to checkout.

I talked to Jan Nieuwenhuizen, who agreed to license their
contributions to this file under GPLv3+, simplifying the licensing.
The rest of 8sync is still LGPLv3+... this just applies to the Guix
packaging.  We also borrow some code from guile-sdl2 to set our source
to be from the package itself, making testing the package from
guix.scm easier.

* guix.scm: Switch license to GPLv3+.
Switch source to be from the local directory, borrowed from
guile-sdl2.

build: Releasing version 0.4.0.

* configure.ac: Update version number to 0.4.0.

build: Update and comment on hash in guix.scm.

* guix.scm: Update hash, but also acknowledge that updating the hash
here is futile since releasing will have a different hash!  In the
future we'll have nicer code here that can use the code from the git
checkout.

build: Add guix.scm to tarball.

Makefile.am (EXTRA_DIST): Add guix.scm.

build: Rename package.scm to guix.scm and update.

* guix.scm: Renamed from package.scm and updated for v0.4.0.

build: Include bootstrap.sh in tarball.

* Makefile.am (EXTRA_DIST): Add bootstrap.sh.

NEWS: Updating news for v0.4.0.

* NEWS: New 8sync 0.4 section.

build: Add gendocs.

* doc/gendocs.sh:
* doc/gendocs_template: New files.

* .gitignore: Update to ignore files built by gendocs.sh.

doc: Move content from doc/8sync-new-manual.org to doc/8sync.texi.

* doc/8sync-new-manual.org: Deleted.
* doc/8sync.texi: Move content exported from doc/8sync-new-manual.org to
here.

doc: Delete trailing whitespace.

* doc/8sync-new-manual.org: Delete trailing whitespace.

doc: Last minute cleanups to the tutorial before we move to texinfo.

* doc/8sync-new-manual.org: Last minute cleanups to the tutorial before
we move to texinfo.

doc: Add a note about actor-alive? being likely to be deprecated.

* doc/8sync-new-manual.org: Add footnote about future deprecation of
actor-alive?.

doc: Have telcmd tutorial example send itself a message for line handling.

* doc/8sync-new-manual.org: Have telcmd tutorial example send itself a
message for line handling.

irc: Convert handle-line to a message handler.

* 8sync/systems/irc.scm (<irc-bot>): Add 'handle-line action handler,
which points to handle-line generic.
(dispatch-raw-line): Send message to our own actor to call handle-line.
(handle-line): Convert to be an action handler.

* demos/ircbot.scm:
* doc/8sync-new-manual.org: Update implementers of handle-line generic
method.

doc: Reordering some paragraphs in the tutorial.

* doc/8sync-new-manual.org: Reordering some paragraphs in the tutorial.

doc: Remove stray #+END_SRC.

* doc/8sync-new-manual.org: Remove stray #+END_SRC.

agenda: Remove deprecated comment.

* 8sync/agenda.scm (run-agenda): Remove comment, since we did the thing
it suggested doing in the future.

doc: Some tutorial tweaks.

* doc/8sync-new-manual.org: Small tutorial tweaks.

doc: Move the "live hacking intermission" to the bottom.

* doc/8sync-new-manual.org: Move the "live hacking intermission" to
the bottom of the tutorial.

doc: Tutorial additions.

* doc/8sync-new-manual.org: Add "Writing our own network-enabled
actor" section.  Clean up other sections, including moving the intro
to the tutorial blathering about IRC systems to a footnote.

Use *init* and *cleanup* in existing actors.

* 8sync/repl.scm (<repl-manager>):
* 8sync/systems/irc.scm (<irc-bot>): Switch from an 'init action to the
implicit '*init* action.

* 8sync/systems/irc.scm (<irc-bot>, irc-bot-cleanup): Add *cleanup*
handler.

* demos/ircbot.scm:
* doc/8sync-new-manual.org: Drop some calls to 'init when
bootstrapping-messages since we now use '*init*.

demos: Switch botherbotherbother demo over to use define-actor.

* demos/actors/botherbotherbother.scm: Switch to use define-actor.

actors: Cleanup on signals.

* 8sync/actors.scm (run-hive): Handle signals, currently SIGINT and
SIGTERM, in a friendly way.  Will still run cleanup on actors.

actors: Remove define-simple-actor, add define-actor.

define-simple-actor wasn't very useful, whereas define-actor is
moderately helpful.

* 8sync/actors.scm (define-simple-actor): Remove.
(define-actor): New macro.

* demos/actors/robotscanner.scm:
* demos/actors/simplest-possible.scm:
* tests/test-actors.scm: Convert to use define-simple-actor instead of
define-actor.

doc: Add a note about the calls to display.

* doc/8sync-new-manual.org: Add paragraph.

doc: Tweak and fix the "Writing our own actors" section.

* doc/8sync-new-manual.org: Fixed some errors and made things a bit
clearer.

actors: Rename msg-receive, msg-val to mbody-receive, mbody-val.

* 8sync/actors.scm (mbody-receive, mbody-val): Rename from msg-receive,
msg-val.  Update all callers.

actors: Add auto-init feature to actors.

* 8sync/actors.scm (<actor>): Add '*init* action to actions slot.
(<hive>, hive-handle-init-all): Add '*init-all* action.
(hive-handle-cleanup-all): Adjust comment.
(%hive-create-actor): Add send-init? argument, and when supplied
call <-wait on the actor's '*init* method.
(bootstrap-actor, bootstrap-actor*): Rename from hive-create-actor,
hive-create-actor*.  Switch init argument to init-args and pass in #f to
%hive-create-actor's send-init? argument.
(create-actor, create-actor*): Switch init argument to init-args
and pass in #t to %hive-create-actor's send-init? argument.
(run-hive): Add '*init-all* action call to the hive on the initial
queue.

* 8sync/debug.scm (bootstrap-actor-gimmie, bootstrap-actor-gimmie*):
Rename from hive-create-actor-gimmie, hive-create-actor-gimmie*.

* demos/actors/botherbotherbother.scm:
* demos/actors/robotscanner.scm:
* demos/actors/simplest-possible.scm:
* demos/ircbot.scm:
* doc/8sync-new-manual.org:
* tests/test-actors.scm: Change calls from hive-create-actor to
bootstrap-actor.

* tests/test-actors.scm: Add actor *init*'ing tests.

doc: Add addendum section on relationship between 8sync and Fibers.

* doc/8sync-new-manual.org: Add "8sync and Fibers" section.

actors: Implicit from-actor argument <-foo methods, and add rest of <-foo*.

* 8sync/actors.scm (<-, <-wait, <-reply, <-reply-wait): from-actor is
now implicitly supplied via %current-actor parameter.
(<-*, <-reply*): New procedures.
(<-wait*, <-reply-wait*): Now pull from-actor from #:actor.

* 8sync/actors.scm:
* 8sync/systems/irc.scm:
* demos/actors/botherbotherbother.scm:
* demos/actors/robotscanner.scm:
* demos/actors/simplest-possible.scm:
* demos/ircbot.scm:
* tests/test-actors.scm: Update all callers of <-foo procedures to drop
from-actor argument.

* doc/8sync-new-manual.org: Update documentation of <-foo procedures to
drop from-actor argument.

agenda: Rename start-agenda to run-agenda.

* 8sync/agenda.scm (run-agenda): Renamed from start-agenda.
* 8sync/actors.scm:
* tests/test-agenda.scm: Update all callers.

actors: Rename *clean-up* back to *cleanup.

By popular intarwebs opinion.

* 8sync/actors.scm (<actor>, <hive>, hive-handle-cleanup-all)
(self-destruct, run-hive): Rename all references of clean-up to cleanup.
(hive-handle-cleanup-all, run-hive-cleanup): Rename name from clean-up
version.
* tests/test-actors.scm: Likewise.

actors: Rename actor-am-i-alive? to actor-alive?.

* 8sync/actors.scm (actor-alive?): Rename from actor-am-i-alive?.
* 8sync/actors.scm:
* 8sync/repl.scm:
* doc/8sync-new-manual.org: Update all references to actor-alive?.

actors: Automatically add cookie by default in hive-create-actor.

Also switch separator in cookie from "-" to ":".

* 8sync/actors.scm (hive-gen-actor-id): Switch separator from "-" to ":".
(hive-create-actor): Automatically add a cookie based on the class name.
(hive-create-actor*): Tweak docstring.

tests: Fix broken test in test-actors.

* tests/test-actors.scm: Fix broken test, forgot to update expected output.

tests: Oops, forgot to add <exploder> to test-actors.

* tests/test-actors.scm: Add <exploder>.

actors: Update self-destruct to run *clean-up* message handler.

* 8sync/actors.scm (self-destruct): Wait on *clean-up* action before
self-destructing by default.
(run-hive): Add parameter to specify whether or not to clean-up after
the hive finishes its tasks.
* tests/test-actors.scm: Add tests for disabling #:clean-up on run-tasks
and ensuring that *clean-up* runs on self-destruct.

actors: Rename *cleanup* action to *clean-up*.

* 8sync/actors.scm (<actor>, <hive>, hive-handle-clean-up-all, run-hive):
Rename *cleanup* to *clean-up* and *cleanup-all* to *clean-up-all*.
* tests/test-actors.scm: Likewise.

actors: Add cleanup facility to run-hive.

* 8sync/actors.scm (build-actions): Moved location to be before <actor>
for compiler reasons.
(<actor>): Add *cleanup* default action to all actors, which does
nothing by default.
(<hive>, hive-handle-cleanup-all): New cleanup method, which gives
all actors still in the registry a chance to clean up.
(make-hive): Have the hive register itself to itself.
(run-hive): Now run in a dynamic-wind, and call run-hive-cleanup when
we're done.
(run-hive-cleanup): New variable.

* tests/test-actors.scm: New test to make sure cleanup is run.

tests: Add "speaker" utility.

* tests/utils.scm (speak-it, %speaker, speak, get-spoken, with-fresh-speaker):
New variables.
* tests/test-agenda.scm (speak-it): Remove in favor of new speaker from
utils.scm.  Update to use new speaker.

doc: Rename calls to ez-run-hive to run-hive and adjust titles.

* doc/8sync-new-manual.org: Rename calls to ez-run-hive to run-hive and
adjust titles.

actors: Rename ez-run-hive to run-hive.

* 8sync/actors.scm (run-hive): Renamed from ez-run-hive.
All callers changed.

docs: Added "Writing our own actors" section

* doc/8sync-new-manual.org: New "Writing our own actors and sending
messages between them" section.

doc: Add pk debugging section.

* doc/8sync-new-manual.org: Add pk debugging section.
Simplify some handle-line examples.

doc: Finish "About live hacking" section.

* doc/8sync-new-manual.org: "An intermission: about live hacking" section
finished, at least for now.

agenda: When re-invoking a continuation at the agenda, don't wrap in a catch.

* 8sync/agenda.scm (<kontinue>): Add new record type which just wraps a
delimited continuation.
(8sync, 8sleep, 8yield): Wrap continuations in kontinue.
(agenda-run-once!): If "kontinue?", just resume the continuation without
catching errors (it already has an error handler!).

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.