From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Nov 1993 22:06:18 +0000 (+0000)
Subject: New code to generate display object in X-GRAPHICS/OPEN.
X-Git-Tag: 20090517-FFI~7630
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b29f133112e26665b83ca572dcdba93bdda49cfe;p=mit-scheme.git

New code to generate display object in X-GRAPHICS/OPEN.
---

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index e9938357b..41db2c14b 100644
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: x11graph.scm,v 1.35 1993/10/21 14:52:45 cph Exp $
+$Id: x11graph.scm,v 1.36 1993/11/01 22:06:18 cph Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -533,15 +533,17 @@ MIT in each case. |#
 				    (number->string y))
 		     "")))
 
-
 (define x-graphics-default-geometry "512x512")
 (define x-graphics-default-display-name #f)
 
 (define (x-graphics/open #!optional display geometry suppress-map?)
   (let ((display
-	 (cond ((default-object? display) (x-graphics/open-display #f))
-	       ((x-display? display)      display)
-	       (else  	                  (x-graphics/open-display display)))))
+	 (let ((display
+		(and (not (default-object? display))
+		     display)))
+	   (if (x-display? display)
+	       display
+	       (x-graphics/open-display display)))))
     (call-with-values
 	(lambda ()
 	  (decode-suppress-map-arg (and (not (default-object? suppress-map?))