Index: gnome/gobject/defs-support.scm
===================================================================
RCS file: /cvsroot/guile-gtk/guile-gobject/gnome/gobject/defs-support.scm,v
retrieving revision 1.3
diff -u -p -r1.3 defs-support.scm
--- gnome/gobject/defs-support.scm	1 Jul 2003 16:10:25 -0000	1.3
+++ gnome/gobject/defs-support.scm	15 Aug 2003 13:46:59 -0000
@@ -34,20 +34,20 @@
 (define (recursive-type-find ws type)
   (let* ((ws-name (gw:wrapset-get-name ws))
          (types-hash (hash-ref types-hash-hash ws-name)))
-    (if types-hash
-        (let ((ret (hash-ref types-hash type)))
-          (if ret
-              ret
-              (call-with-current-continuation
-               (lambda (exit)
-                 (for-each
-                  (lambda (ws)
-                    (let ((ret (recursive-type-find ws type)))
-                      (if ret
-                          (exit ret))))
-                  (wrapset-get-wrapsets-depended-on ws))
-                 #f))))
-        #f)))
+    (let ((ret (if types-hash
+                   (hash-ref types-hash type)
+                   #f)))
+      (if ret
+          ret
+          (call-with-current-continuation
+           (lambda (exit)
+             (for-each
+              (lambda (ws)
+                (let ((ret (recursive-type-find ws type)))
+                  (if ret
+                      (exit ret))))
+              (wrapset-get-wrapsets-depended-on ws))
+             #f))))))
 
 ;; find the gwrap type name for a given type name in a defs file, or
 ;; wrap the type as an opaque gpointer -- this thing is getting nasty!