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 e9938357b288b3ab0fe6e28f6954e332b75a1169..41db2c14b309193fc7cdc9d5c7e25d0f793e2f67 100644 (file)
--- 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))
                     "")))
 \f
-
 (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?))