X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=loopy.scm;h=e9db917929c69a34e950bb6aa389fe09a8ba6f49;hb=fede023a7435d0037a2bcd953a042226e9bc49d7;hp=60bbe85d0eee1b490ed1d846fd8f341128d02f41;hpb=78428b2216e0afc31e0d827b2216981870b370b2;p=8sync.git

diff --git a/loopy.scm b/loopy.scm
index 60bbe85..e9db917 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -39,6 +39,11 @@
             make-run-request run-request?
             run-request-proc run-request-when
 
+            <port-request>
+            make-port-request port-request?
+            port-request-port
+            port-request-read port-request-write port-request-except
+
             run-it wrap run run-at run-delay
 
             %current-agenda
@@ -375,8 +380,6 @@ Will produce (0 . 0) instead of a negative number, if needed."
       (throw 'no-port-handler-given "No port handler given.\n"))
   (make-port-request-intern port read write except))
 
-(define port-request make-port-request)
-
 
 
 ;;; Asynchronous escape to run things
@@ -413,14 +416,15 @@ Will produce (0 . 0) instead of a negative number, if needed."
 (define-syntax-rule (%sync body args ...)
   "Run BODY asynchronously at a prompt, passing args to make-future.
 
-Pronounced `async' despite the spelling.
+Pronounced `eight-sync' despite the spelling.
 
 %sync was chosen because (async) was already taken and could lead to
 errors, and this version of asynchronous code uses a prompt, so the `a'
 character becomes a `%' prompt! :)
 
 The % and 8 characters kind of look similar... hence this library's
-name!  (There are 8sync aliases if you prefer that name.)"
+name!  (That, and the pun 'eight-synchronous' programming.)
+There are 8sync aliases if you prefer that name."
   (abort-to-prompt (current-agenda-prompt)
                    (wrap body)
                    args ...))