From 8cee13ea88f6852ee1f542e1f7bdb7709bfe9505 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Wed, 28 Dec 2016 10:29:58 -0600 Subject: [PATCH] agenda: Switch "yield" to "8yield" and export. This avoids a name collision with an existing procedure. Plus yield was never exported, apparently. * 8sync/agenda.scm (8yield): Renamed from yield. --- 8sync/agenda.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/8sync/agenda.scm b/8sync/agenda.scm index e35cd8e..0aaae25 100644 --- a/8sync/agenda.scm +++ b/8sync/agenda.scm @@ -49,7 +49,7 @@ run-it wrap wrap-apply run run-at run-delay 8sync - 8sleep 8usleep + 8sleep 8yield ;; 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 -(define (yield) ; @@: should this be define-inlinable? +(define (8yield) "Voluntarily yield execution to the scheduler." (8sync-abort-to-prompt (make-async-request -- 2.31.1