From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 17 Aug 2011 22:02:15 +0000 (-0700)
Subject: Did not need the signal-name argument for g-signal-connect.
X-Git-Tag: mit-scheme-pucked-9.2.12~635
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e76ef9b4259345e6625f30941873874103de2c67;p=mit-scheme.git

Did not need the signal-name argument for g-signal-connect.
---

diff --git a/src/gtk/gio.scm b/src/gtk/gio.scm
index b8d05157a..0c5a5c484 100644
--- a/src/gtk/gio.scm
+++ b/src/gtk/gio.scm
@@ -1091,16 +1091,13 @@ USA.
 	   (%trace ";mount-finish-callback #t "queue"\n")
 	   (%queue! queue #t))))))
 
-(define (attach-mount-signal-handlers gmount-op gfile)
-  (g-signal-connect gmount-op (C-callback "ask_password")
-		    (make-mount-password-callback gfile)
-		    'ask-password)
-  (g-signal-connect gmount-op (C-callback "ask_question")
-		    (make-mount-question-callback gfile)
-		    'ask-question)
-  (g-signal-connect gmount-op (C-callback "show_processes")
-		    (make-mount-processes-callback gfile)
-		    'show-processes))
+(define (attach-mount-signal-handlers gmountop gfile)
+  (g-signal-connect gmountop (C-callback "ask_password")
+		    (make-mount-password-callback gfile))
+  (g-signal-connect gmountop (C-callback "ask_question")
+		    (make-mount-question-callback gfile))
+  (g-signal-connect gmountop (C-callback "show_processes")
+		    (make-mount-processes-callback gfile)))
 
 (define (make-mount-password-callback gfile)
   (named-lambda (mount-password-callback gmountop message user domain flags)