commit 2ca397bfcca94c106380368b5b0ce920b0a62a95
Author: Ludovic Courtès <ludo@gnu.org>
Date:   Sat Jan 6 16:22:45 2024 +0100

    libevent: Fix computation of the timeout value.
    
diff --git a/extensions/libevent.c b/extensions/libevent.c
index 134460a..62e50a3 100644
--- a/extensions/libevent.c
+++ b/extensions/libevent.c
@@ -192,30 +192,27 @@ scm_primitive_resize (SCM lst, SCM eventsv)
 }
 #undef FUNC_NAME
 
-static uint64_t time_units_per_microsec;
+static uint64_t time_units_per_microsec, microsec_per_time_units;
 
 static void*
 run_event_loop (void *p)
 #define FUNC_NAME "primitive-event-loop"
 {
-  int ret = 0;
-  int microsec = 0;
-  struct timeval tv;
-
+  int ret;
   struct loop_data *data = p;
 
-  if (data->timeout < 0)
-    microsec = -1;
-  else if (data->timeout >= 0)
+  if (data->timeout >= 0)
     {
-      microsec = (time_units_per_microsec == 0)
-	? 0 : data->timeout / time_units_per_microsec;
-      tv.tv_sec = 0;
-      tv.tv_usec = microsec;
-    }
+      struct timeval tv;
+
+      tv.tv_sec = data->timeout / scm_c_time_units_per_second;
+      tv.tv_usec =
+	time_units_per_microsec > 0
+	? ((data->timeout % scm_c_time_units_per_second)
+	   / time_units_per_microsec)
+	: ((data->timeout % scm_c_time_units_per_second)
+	   * microsec_per_time_units);
 
-  if (microsec >= 0)
-    {
       ret = event_base_loopexit (data->base, &tv);
       if (ret == -1)
         SCM_MISC_ERROR ("event loop exit failed", SCM_EOL);
@@ -307,6 +304,7 @@ void
 init_fibers_libevt (void)
 {
   time_units_per_microsec = scm_c_time_units_per_second / 1000000;
+  microsec_per_time_units = 1000000 / scm_c_time_units_per_second;
 
   scm_c_define_gsubr ("primitive-event-wake", 1, 0, 0,
                       scm_primitive_event_wake);
hor'>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=47fe66586e0fbc177288ec91cc88ea0b081505b0'>root</a>/<a href='/guix/log/gnu?id=47fe66586e0fbc177288ec91cc88ea0b081505b0'>gnu</a>/<a href='/guix/log/gnu/packages?id=47fe66586e0fbc177288ec91cc88ea0b081505b0'>packages</a>/<a href='/guix/log/gnu/packages/matrix.scm?id=47fe66586e0fbc177288ec91cc88ea0b081505b0'>matrix.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/packages/matrix.scm?id=47fe66586e0fbc177288ec91cc88ea0b081505b0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-02-11 21:56:28 +0100'>2023-02-11</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=b367f28ed2ac8212d3c8b826b9655a0b2e879f18'>gnu: pantalaimon: Install documentation and use gexps.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (pantalaimon)[arguments]: Turn into gexps.  Add
install-doc phase.

Signed-off-by: Nicolas Goaziou &lt;mail@nicolasgoaziou.fr&gt;
</span></span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2022-10-02 15:34:40 +0300'>2022-10-02</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=6fc185bc79d1693a034bfca7100516bb19c60524'>gnu: pantalaimon: Update to 0.10.5.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (pantalaimon): Update to 0.10.5.

Signed-off-by: Efraim Flashner &lt;efraim@flashner.co.il&gt;
</span></span></td><td>Michael Rohleder</td></tr>
<tr><td><span title='2022-10-02 15:34:38 +0300'>2022-10-02</span></td><td><a href='/guix/commit/gnu/packages/matrix.scm?id=d37f4f4ac7d85569274d88855dac681d193deb8d'>gnu: python-matrix-nio: Update to 0.20.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/matrix.scm (python-matrix-nio): Update to 0.20.0.
[native-inputs]: Add python-pytest-asyncio.
[propagated-inputs]: Changed python-jsonschema to python-jsonschema-next.

Signed-off-by: Efraim Flashner &lt;efraim@flashner.co.il&gt;
</span></span></td><td>Michael Rohleder</td></tr>