From f86dbd51fa3bc64bd70dbfd786201f6b3bcdab47 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 7 Jun 2016 12:44:25 -0700 Subject: [PATCH] x11/x11base.scm: Fix the wrappings on some boolean args. --- src/x11/x11base.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)) -- 2.25.1