From 603cf245ff2da917654e77fac363c8dba87095ea Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 19 Oct 2012 12:14:24 -0700 Subject: [PATCH] gtk: Fix layout-draw-callback's level 2 trace report of cairo clip. String-append don't take no numbers. --- src/gtk/fix-layout.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm index 1fe0eedc4..0f07b23d0 100644 --- a/src/gtk/fix-layout.scm +++ b/src/gtk/fix-layout.scm @@ -400,8 +400,10 @@ USA. (%trace2 ";draw "layout" at " (cairo-clip-extents cr (lambda (min-x min-y max-x max-y) - (string-append (number->string min-x)","(number->string min-y) - " "(- max-x min-x)"x"(- max-y min-y)))) + (define-integrable n->s number->string) + (string-append (n->s min-x)","(n->s min-y) + " "(n->s (- max-x min-x)) + "x"(n->s (- max-y min-y))))) "\n") (let ((window (fix-widget-window layout)) (drawing (fix-layout-drawing layout)) -- 2.25.1