From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 7 Jun 2016 19:44:25 +0000 (-0700)
Subject: x11/x11base.scm: Fix the wrappings on some boolean args.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~31
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f86dbd51fa3bc64bd70dbfd786201f6b3bcdab47;p=mit-scheme.git

x11/x11base.scm: Fix the wrappings on some boolean args.
---

diff --git a/src/x11/x11base.scm b/src/x11/x11base.scm
index 55b975c36..f8c79b477 100644
--- a/src/x11/x11base.scm
+++ b/src/x11/x11base.scm
@@ -47,9 +47,9 @@ USA.
 
 ;;; Window Manager Properties
 
-(define (x-window-set-input-hint window hint)
+(define (x-window-set-input-hint window hint?)
   (guarantee-xwindow window 'x-window-set-input-hint)
-  (if (not (zero? (C-call "x_window_set_input_hint" window hint)))
+  (if (not (zero? (C-call "x_window_set_input_hint" window (if hint? 1 0))))
       (error "XAllocWMHints failed.")))
 
 (define (x-window-set-name window name)
@@ -702,7 +702,7 @@ USA.
 
 (define (x-intern-atom display name soft?)
   (guarantee-xdisplay display 'x-intern-atom)
-  (c-call "x_intern_atom" display name soft?))
+  (c-call "x_intern_atom" display name (if soft? 1 0)))
 
 (define (x-get-atom-name display atom)
 
@@ -756,7 +756,7 @@ USA.
     (let ((data-return (make-alien '(* char))))
       (add-alien-cleanup! data-return cleanup-data-return! init-data-return!)
       (let ((code (c-call "x_get_window_property" display window property
-			   long-offset long-length delete? req-type
+			   long-offset long-length (if delete? 1 0) req-type
 			   actual-type-return actual-format-return
 			   nitems-return bytes-after-return data-return)))
 	(if (not (zero? code))