From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 4 Nov 2014 04:29:42 +0000 (+0000)
Subject: Fix indentation in GET-X-DISPLAY botched by last commit.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~129
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8410bc4a129404823083ec6e806df6ba5bf97c06;p=mit-scheme.git

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

diff --git a/src/edwin/xterm.scm b/src/edwin/xterm.scm
index b78a72282..416ebd8bf 100644
--- 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 '())