From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 16 Mar 2018 20:10:35 +0000 (-0700)
Subject: gtk/fix-layout.scm (set-fix-drawing-size!): typo
X-Git-Tag: mit-scheme-pucked-x11-0.2.2~36
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=952f395773e40057f35e8a4a9222838797c97510;p=mit-scheme.git

gtk/fix-layout.scm (set-fix-drawing-size!): typo
---

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index c74ab3b42..9f75d7f6a 100644
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -806,8 +806,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
 (define (set-fix-drawing-size! drawing width height)
   (guarantee-fix-drawing drawing 'set-fix-drawing-size!)
-  (guarantee-size width 'set-drawing-size!)
-  (guarantee-size height 'set-drawing-size!)
+  (guarantee-size width 'set-fix-drawing-size!)
+  (guarantee-size height 'set-fix-drawing-size!)
   (set-fix-rect-size! (fix-drawing-extent drawing) width height)
   (for-each
     (lambda (widget) (set-fix-layout-scroll-size! widget width height))