gtk: Fix layout-draw-callback's level 2 trace report of cairo clip.

String-append don't take no numbers.

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index 1fe0eedc4d4850cab40aba4f4f2cd5511daaba1f..0f07b23d0d164f30ce1853e977bcc1a9c8b5d891 100644 (file)
--- 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))