From: Matt Birkholz Date: Fri, 19 Oct 2012 19:14:24 +0000 (-0700) Subject: gtk: Fix layout-draw-callback's level 2 trace report of cairo clip. X-Git-Tag: mit-scheme-pucked-9.2.12~549 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=603cf245ff2da917654e77fac363c8dba87095ea;p=mit-scheme.git 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 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))