Fibers 1.0.0 has a bug in run-fibers in which peer schedulers aren't destroyed -
so if you had 4 cores, 1 would be destroyed when run-fibers returned, but the
other 3 would stay around.  Each scheduler uses 3 file descriptors, so for
machines with many cores, this resource leak adds up quickly - quickly enough
that the test suite can even fail because of it.

See https://github.com/wingo/fibers/issues/36.

This fixes that.  It should be safe to destroy the peer schedulers at the given
point because the threads that could be running them are all either dead or the
current thread.

As of May 21, 2020, this bug still existed in the 1.0.0 (latest) release and in
git master.
--- a/fibers.scm	2020-05-21 18:38:06.890690154 -0500
+++ b/fibers.scm	2020-05-21 18:38:56.395686693 -0500
@@ -137,5 +137,6 @@
              (%run-fibers scheduler hz finished? affinity))
            (lambda ()
              (stop-auxiliary-threads scheduler)))))
+      (for-each destroy-scheduler (scheduler-remote-peers scheduler))
       (destroy-scheduler scheduler)
       (apply values (atomic-box-ref ret))))))

846f402ce7670e6e3f317'>refs</a><a class='active' href='/guix/log/gnu/services/dict.scm'>log</a><a href='/guix/tree/gnu/services/dict.scm?id=034eb1b0b624ccd14ed846f402ce7670e6e3f317'>tree</a><a href='/guix/commit/gnu/services/dict.scm?id=034eb1b0b624ccd14ed846f402ce7670e6e3f317'>commit</a><a href='/guix/diff/gnu/services/dict.scm?id=034eb1b0b624ccd14ed846f402ce7670e6e3f317'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services/dict.scm'>
<input type='hidden' name='id' value='034eb1b0b624ccd14ed846f402ce7670e6e3f317'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=034eb1b0b624ccd14ed846f402ce7670e6e3f317'>root</a>/<a href='/guix/log/gnu?id=034eb1b0b624ccd14ed846f402ce7670e6e3f317'>gnu</a>/<a href='/guix/log/gnu/services?id=034eb1b0b624ccd14ed846f402ce7670e6e3f317'>services</a>/<a href='/guix/log/gnu/services/dict.scm?id=034eb1b0b624ccd14ed846f402ce7670e6e3f317'>dict.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/dict.scm?id=034eb1b0b624ccd14ed846f402ce7670e6e3f317&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-08-20 22:48:47 +0200'>2023-08-20</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=1ce3424e22bc89e01f9cc3a2eb01232715495bd3'>home: services: Add dicod.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/home/services/dict.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
* gnu/services/dict.scm (&lt;dicod-configuration&gt;)[home-service?]: New
field.
(dicod-shepherd-service): Do not map /dev/log when 'home-service?' is
true.  Remove 'user-processes' requirement when 'home-service?' is
true.
(dicod-shepherd-service): Set #:user and #:group to #f when
'home-service?' is true.
* doc/guix.texi (Miscellaneous Home Services): New node.
(Miscellaneous Services): Add cross-reference.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-08-20 22:47:26 +0200'>2023-08-20</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=9bfe7fbdbe51451d74a8fead5c1727d002050a52'>services: dicod: Pre-build the GCIDE index.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/dict.scm (%dicod-gcide-index): New variable.
(%dicod-database:gcide): Use it.
(%dicod-activation): Remove.
(dicod-shepherd-service): Remove reference to /var/run/dicod.
(dicod-service-type): Remove ACTIVATION-SERVICE-TYPE extension.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-08-20 22:47:25 +0200'>2023-08-20</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=171ab374f9998e3664a4c6a62ea5b82ec5a818bc'>services: dicod: Remove Shepherd &lt; 0.9.0 compatibility layer.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/dict.scm (dicod-shepherd-service): Use
'make-inetd-constructor' and 'make-inetd-destructor' unconditionally.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-06-24 16:11:07 +0200'>2023-06-24</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=deeee98a50267660439109ce8ef8fe856bdb1846'>services: dicod: Use one inetd endpoint per interface.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/dict.scm (dicod-shepherd-service): Remove
the (= 1 (length interfaces)) restriction by adding one endpoint per
interface.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-21 01:04:39 +0200'>2023-05-21</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=896a51258aa71a483d8f6be29169098de5967baa'>services: Transient inetd services inherit requirements.</a><span class='msg-avail'>...<span class='msg-tooltip'>That way, per-connection transient services such as 'sshd-123' inherit
dependencies of their "parent" ('sshd' in this example), which is more
consistent than not depending on anything.

* gnu/services/dict.scm (dicod-shepherd-service): Pass #:requirements to
'make-inetd-constructor'.
* gnu/services/messaging.scm (bitlbee-shepherd-service): Likewise.
* gnu/services/ssh.scm (openssh-shepherd-service): Likewise.
* gnu/services/vnc.scm (xvnc-shepherd-service): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-05-11 13:21:45 +0200'>2023-05-11</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=3a00aba9e9bc65cd7578324635336222a302d200'>services: dicod, bitlbee: Pass 'make-inetd-constructor' a list of endpoints.</a><span class='msg-avail'>...<span class='msg-tooltip'>'make-inetd-constructor' accepts a list of endpoints since version 0.9.1
of the Shepherd (released in May 2022).

* gnu/services/dict.scm (dicod-shepherd-service): Pass
'make-inetd-constructor' a list of endpoints.
* gnu/services/messaging.scm (bitlbee-shepherd-service): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-17 23:20:36 +0100'>2023-03-17</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=20aa4c30fbfdb72c25d267fe36299f02e3e202e2'>services: dict: Deprecate 'dicod-service' procedure.</a><span class='msg-avail'>...<span class='msg-tooltip'>* doc/guix.texi (Miscellaneous Services): Remove 'dicod-service' mention.
* gnu/services/dict.scm (dicod-service): Deprecate procedure.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Bruno Victal</td></tr>