export port request features and kill the port-request alias

diff --git a/loopy.scm b/loopy.scm
index 60bbe85d0eee1b490ed1d846fd8f341128d02f41..01c0b52110d1615648242b9672259479bf7ef350 100644 (file)
--- a/loopy.scm
+++ b/loopy.scm
@@ -39,6 +39,11 @@
             make-run-request run-request?
             run-request-proc run-request-when
 
             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
             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))
 
       (throw 'no-port-handler-given "No port handler given.\n"))
   (make-port-request-intern port read write except))
 

-(define port-request make-port-request)
-

 
 \f
 ;;; Asynchronous escape to run things
 
 \f
 ;;; Asynchronous escape to run things