From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 15 Mar 2018 15:23:45 +0000 (-0700)
Subject: gtk/gtk-widget: typo
X-Git-Tag: mit-scheme-pucked-x11-0.2.2~44
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0f9af0972ac0900a9530e3828e5ca8a27c08faeb;p=mit-scheme.git

gtk/gtk-widget: typo
---

diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm
index 237d1b1e7..6fcd924d4 100644
--- a/src/gtk/gtk-widget.scm
+++ b/src/gtk/gtk-widget.scm
@@ -36,7 +36,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 (define (set-gtk-adjustment! adjustment value
 			     lower upper page-size
 			     step-incr page-incr)
-  (assert-glib-locked set-gtk-adjustment!)
+  (assert-glib-locked 'set-gtk-adjustment!)
   (guarantee-live-gtk-adjustment adjustment 'set-gtk-adjustment!)
   (guarantee real? lower 'set-gtk-adjustment!)
   (guarantee real? upper 'set-gtk-adjustment!)