From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 10 Oct 2018 16:57:44 +0000 (-0700)
Subject: Fix typo in merge.
X-Git-Tag: mit-scheme-pucked-9.2.19
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c20e8575e179df1532e17c4d32cac561474e07b3;p=mit-scheme.git

Fix typo in merge.
---

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index ef75663c9..873cac585 100644
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -154,11 +154,11 @@ USA.
 	   (lambda (port) (display "Loading Edwin" port))
 	   (lambda ()
 	     (parameterize ((param:suppress-loading-message? #t))
-		(load-option 'edwin)
-		(if (let ((display (get-environment-variable "DISPLAY")))
-		      (and (string? display)
-			   (not (string-null? display))))
-		    (ignore-errors (lambda () (load-option 'x11-screen))))))))
+	       (load-option 'edwin)
+	       (if (let ((display (get-environment-variable "DISPLAY")))
+		     (and (string? display)
+			  (not (string-null? display))))
+		   (ignore-errors (lambda () (load-option 'x11-screen)))))))
 	  (apply (environment-lookup (->environment '(edwin)) 'edit) args)))))
 
 (define edwin edit)