projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
fc82771
)
x11/x11term.scm (xterm_open_window): Use 0 for NULL, not #f.
author
Matt Birkholz
<puck@birchwood-abbey.net>
Wed, 8 Jun 2016 22:04:23 +0000
(15:04 -0700)
committer
Matt Birkholz
<puck@birchwood-abbey.net>
Wed, 8 Jun 2016 22:04:23 +0000
(15:04 -0700)
src/x11/x11term.scm
patch
|
blob
|
history
diff --git
a/src/x11/x11term.scm
b/src/x11/x11term.scm
index 9186734c0f82fbbd2482ce0bc701f267969e53e2..ab53a9e56f58c28b52b5b425e3d24a0afcd6c94b 100644
(file)
--- 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))))