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

diff --git a/loopy.scm b/loopy.scm
index 60bbe85..01c0b52 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