Fix typo in merge. mit-scheme-pucked-9.2.19 mit-scheme-pucked-edwin-3.117.1 mit-scheme-pucked-imail-1.22.1
authorMatt Birkholz <matt@birchwood-abbey.net>
Wed, 10 Oct 2018 16:57:44 +0000 (09:57 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Wed, 10 Oct 2018 16:57:44 +0000 (09:57 -0700)
src/runtime/global.scm

index ef75663c9edccf6147e02a2b279c8028623c4675..873cac585d9771552bb0ae912ae793b880ccfe69 100644 (file)
@@ -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)