gtk: No need to frob subprocess-wait anymore.

Hook/subprocess-wait is gone.  The default subprocess-wait is now
nonblocking/subprocess-wait.

diff --git a/src/glib/glib-main.scm b/src/glib/glib-main.scm
index a5c90dd6d7161501e50c73858470226333bdef38..0f68cd5f927e9d9f0bbf1bc090dfcd4e04ff2432 100644 (file)
--- a/src/glib/glib-main.scm
+++ b/src/glib/glib-main.scm
@@ -28,7 +28,6 @@ USA.
 
 (define (glib-start)
   ;; Called from glib/make.scm, from a (load-option 'Glib).
-  (set! hook/subprocess-wait nonblocking/subprocess-wait)
   (let ((path (system-library-pathname "glib-shim.so")))
     (if (not (file-loadable? path)) (error "Glib shim not loadable.")))
   (if (fix:zero? (C-call "start_glib"))

diff --git a/src/glib/glib.pkg b/src/glib/glib.pkg
index 540450ae27ee7068ad6e88ce042eebcc5ecb046f..f70bcea5b406031d04eef1be584191831b2a5b2b 100644 (file)
--- a/src/glib/glib.pkg
+++ b/src/glib/glib.pkg
@@ -98,8 +98,6 @@ USA.
          default/process-command-line)
   (import (runtime)
          ucode-primitive)
-  (import (runtime subprocess)
-         hook/subprocess-wait nonblocking/subprocess-wait)
   (import (glib thread)
          create-glib-thread exit-glib-thread)
   (export ()

diff --git a/src/gtk/gtk.pkg b/src/gtk/gtk.pkg
index d1f13bf4f2fa79e5b31e2b64523861b057122436..fb85a3d37d27ea595226384b1531ce4b130106fe 100644 (file)
--- a/src/gtk/gtk.pkg
+++ b/src/gtk/gtk.pkg
@@ -262,8 +262,6 @@ USA.
          default/process-command-line)
   (import (runtime)
          ucode-primitive)
-  (import (runtime subprocess)
-         hook/subprocess-wait nonblocking/subprocess-wait)
   (import (gtk gtk-widget)
          toplevel-windows)
   (export ()

diff --git a/src/gtk/main.scm b/src/gtk/main.scm
index 59ca873b7d6681d906a73884b5c7b32f130c33f5..d9eebe10ef0b10108341d2f0d6ce41dfc279bec3 100644 (file)
--- a/src/gtk/main.scm
+++ b/src/gtk/main.scm
@@ -31,7 +31,6 @@ USA.
 
 (define (gtk-start)
   ;; Called from gtk/make.scm, from a (load-option 'Gtk).
-  (set! hook/subprocess-wait nonblocking/subprocess-wait)
   (init-gtk ((ucode-primitive scheme-program-name 0)) *unused-command-line*))
 
 (define (initialize-package!)