Fix indentation in GET-X-DISPLAY botched by last commit.

diff --git a/src/edwin/xterm.scm b/src/edwin/xterm.scm
index b78a722824c0bae85000fc36f3b174b2bb15de99..416ebd8bfca84826820f545be92e518f22c0eec9 100644 (file)
--- a/src/edwin/xterm.scm
+++ b/src/edwin/xterm.scm
@@ -1370,14 +1370,14 @@ Otherwise, it is copied from the primary selection."
   ;; running the login loop of xdm.  Can this be fixed?
   (or x-display-data
       (and (begin
-             (load-library-object-file "prx11" #f)
-             (implemented-primitive-procedure?
-              (ucode-primitive x-open-display 1)))
-           (or x-display-name (get-environment-variable "DISPLAY"))
-             (let ((display (x-open-display x-display-name)))
-               (set! x-display-data display)
-               (set! x-display-events (make-queue))
-               display))))
+            (load-library-object-file "prx11" #f)
+            (implemented-primitive-procedure?
+             (ucode-primitive x-open-display 1)))
+          (or x-display-name (get-environment-variable "DISPLAY"))
+          (let ((display (x-open-display x-display-name)))
+            (set! x-display-data display)
+            (set! x-display-events (make-queue))
+            display))))
 
 (define (initialize-package!)
   (set! screen-list '())