From 8340c25e45ee65313d70b95c83bd3b6ab547b305 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 20 Feb 2017 13:24:10 +0100
Subject: Update documentation.

* fibers.texi (Internals): Document scheduler-work-pending?.
---
 fibers.texi | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/fibers.texi b/fibers.texi
index 1549136..9df1ca1 100644
--- a/fibers.texi
+++ b/fibers.texi
@@ -806,6 +806,11 @@ Return a random scheduler from @var{sched}'s peer set.  Note that
 @var{sched}'s peer set includes @var{sched} itself.
 @end defun
 
+@defun scheduler-work-pending? sched
+Return @code{#t} if @var{sched} has any work pending: any runnable
+fibers or any pending timeouts.
+@end defun
+
 @defun run-scheduler sched finished?
 Run @var{sched} until there are no more fibers ready to run, no file
 descriptors being waited on, and no more timers pending to run, and
-- 
cgit v1.2.3