From 039f44baa3a2a5aaebd7d9e9899b00f81a2c90b8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 4 Mar 2009 21:15:16 -0600
Subject: [PATCH] Clean up

---
 basis/pango/layouts/layouts.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/pango/layouts/layouts.factor b/basis/pango/layouts/layouts.factor
index 1e82602673..defcdec6f8 100644
--- a/basis/pango/layouts/layouts.factor
+++ b/basis/pango/layouts/layouts.factor
@@ -74,9 +74,12 @@ SYMBOL: dpi
     #! strings
     swap -1 pango_layout_set_text ;
 
+: set-layout-resolution ( layout -- )
+    pango_layout_get_context dpi get pango_cairo_context_set_resolution ;
+
 : <PangoLayout> ( text font -- layout )
     dummy-cairo pango_cairo_create_layout |g_object_unref
-    [ pango_layout_get_context dpi get pango_cairo_context_set_resolution ] keep
+    [ set-layout-resolution ] keep
     [ set-layout-font ] keep
     [ set-layout-text ] keep ;