projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
export port request features and kill the port-request alias
[8sync.git]
/
loopy.scm
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