From ec9328acaf2b3c8ae9df03a891465a53fbae0c9f Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 4 Apr 2013 10:58:43 +0200 Subject: [PATCH 2/2] gobject: whitespace adjustment. --- glib/gnome/gobject/gobject.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/glib/gnome/gobject/gobject.scm b/glib/gnome/gobject/gobject.scm index ad6abed..a235bbf 100644 --- a/glib/gnome/gobject/gobject.scm +++ b/glib/gnome/gobject/gobject.scm @@ -132,18 +132,18 @@ ;; We parse a #:gsignal initialization argument to install signals. (let loop ((args initargs)) (when (not (null? args)) - (if (eq? (car args) #:gsignal) - (let ((signal (cadr args))) - (if (not (and (list? signal) (>= (length signal) 2))) - (gruntime-error "Invalid signal specification: ~A" signal)) - (let* ((name (car signal)) - (return-type (cadr signal)) - (param-types (cddr signal)) - (generic (gtype-class-create-signal class name return-type param-types))) - ;; Some magic to define the generic - (module-define! (current-module) - (generic-function-name generic) generic)))) - (loop (cddr args))))) + (if (eq? (car args) #:gsignal) + (let ((signal (cadr args))) + (if (not (and (list? signal) (>= (length signal) 2))) + (gruntime-error "Invalid signal specification: ~A" signal)) + (let* ((name (car signal)) + (return-type (cadr signal)) + (param-types (cddr signal)) + (generic (gtype-class-create-signal class name return-type param-types))) + ;; Some magic to define the generic + (module-define! (current-module) + (generic-function-name generic) generic)))) + (loop (cddr args))))) (define (first pred list) (cond ((null? list) #f) -- 1.7.10.4