projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
agenda: Switch "yield" to "8yield" and export.
[8sync.git]
/
8sync
/
agenda.scm
diff --git
a/8sync/agenda.scm
b/8sync/agenda.scm
index e35cd8efe538cb38abd54acfb4614c07aa738250..0aaae2563e3ea4f9f14f3cf962161fc4625f3865 100644
(file)
--- a/
8sync/agenda.scm
+++ b/
8sync/agenda.scm
@@
-49,7
+49,7
@@
run-it wrap wrap-apply run run-at run-delay
8sync
run-it wrap wrap-apply run run-at run-delay
8sync
- 8sleep 8
usleep
+ 8sleep 8
yield
;; used for introspecting the error, but a method for making
;; is not exposed
;; used for introspecting the error, but a method for making
;; is not exposed
@@
-429,7
+429,7
@@
forge ahead in our current function!"
(make-run-request (lambda () (kont #f)) (delayed-time secs))))))
;; Voluntarily yield execution
(make-run-request (lambda () (kont #f)) (delayed-time secs))))))
;; Voluntarily yield execution
-(define (
yield) ; @@: should this be define-inlinable?
+(define (
8yield)
"Voluntarily yield execution to the scheduler."
(8sync-abort-to-prompt
(make-async-request
"Voluntarily yield execution to the scheduler."
(8sync-abort-to-prompt
(make-async-request