From: Matt Birkholz Date: Mon, 14 Aug 2017 20:57:49 +0000 (-0700) Subject: glib: Do not add time blocked in run_glib to glib-thread's run time. X-Git-Tag: mit-scheme-pucked-9.2.12~80 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ea95f0d14c0b77ab177a0bd4c90043695cede31c;p=mit-scheme.git glib: Do not add time blocked in run_glib to glib-thread's run time. --- diff --git a/src/glib/glib-thread.scm b/src/glib/glib-thread.scm index 2b1dd8051..3f0561df1 100644 --- a/src/glib/glib-thread.scm +++ b/src/glib/glib-thread.scm @@ -78,7 +78,9 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (timer-record/time timer-records)) -1))) (%trace ";run-glib until "time"\n") + (account-for-times self (get-system-times)) (run-glib (select-registry-handle io-registry) time) + (record-start-times! self) (%trace ";run-glib done at "(real-time-clock)"\n")))) (%trace ";run-glib yields\n") (yield-current-thread) diff --git a/src/glib/glib.pkg b/src/glib/glib.pkg index 8d82cd95b..57ff2698f 100644 --- a/src/glib/glib.pkg +++ b/src/glib/glib.pkg @@ -116,5 +116,9 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. run-glib-daemons) (import (glib main) run-glib) + (import (runtime thread) + account-for-times + get-system-times + record-start-times!) (import (runtime primitive-io) select-registry-handle)) \ No newline at end of file