From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 8 Jun 2016 22:04:23 +0000 (-0700)
Subject: x11/x11term.scm (xterm_open_window): Use 0 for NULL, not #f.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~26
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=97b649df0db65ccdbfad7bd90b4c169783fb5357;p=mit-scheme.git

x11/x11term.scm (xterm_open_window): Use 0 for NULL, not #f.
---

diff --git a/src/x11/x11term.scm b/src/x11/x11term.scm
index 9186734c0..ab53a9e56 100644
--- a/src/x11/x11term.scm
+++ b/src/x11/x11term.scm
@@ -70,9 +70,9 @@ USA.
 		     (vector-ref suppress-map 2)
 		     (vector-ref suppress-map 0)))
 	    ((eq? #f suppress-map)
-	     (values #f #f #t))
+	     (values 0 0 #t))
 	    (else
-	     (values #f #f #f)))
+	     (values 0 0 #f)))
     (let ((window
 	   (c-call "xterm_open_window" (make-alien '(struct |xwindow|))
 		   display geometry name class (if map? 1 0))))