From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Thu, 8 May 2014 15:41:07 +0000 (-0700)
Subject: gtk: Fix gtk-widget-create-pango-layout's failure test.
X-Git-Tag: mit-scheme-pucked-9.2.12~411
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=398cf6666c88bb855241665cce637ed8f8fa8f03;p=mit-scheme.git

gtk: Fix gtk-widget-create-pango-layout's failure test.
---

diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm
index 1ae1bba35..e4ce63ed4 100644
--- a/src/gtk/gtk-widget.scm
+++ b/src/gtk/gtk-widget.scm
@@ -196,11 +196,12 @@ USA.
   (guarantee-gtk-widget widget 'gtk-widget-create-pango-layout)
   (if (not (default-object? text))
       (guarantee-string text 'gtk-widget-create-pango-layout))
-  (let ((layout (make-pango-layout)))
+  (let* ((layout (make-pango-layout))
+	 (alien (gobject-alien layout)))
     (C-call "gtk_widget_create_pango_layout"
-	    (gobject-alien layout) (gobject-alien widget)
+	    alien (gobject-alien widget)
 	    (if (default-object? text) 0 text))
-    (error-if-null layout "Could not create:" layout)
+    (error-if-null alien "Could not create:" layout)
     layout))
 
 (define (gtk-widget-get-size widget)