From fe7e08a21605462ea63cd2bd3c24f4a6f39fcdc4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Nov 1994 01:31:44 +0000
Subject: [PATCH] Reformat to eliminate over-long line.

---
 v7/src/edwin/editor.scm | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index dfc2aea25..a2e2dc760 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: editor.scm,v 1.236 1994/11/03 04:40:33 adams Exp $
+;;;	$Id: editor.scm,v 1.237 1994/11/14 01:31:44 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -143,19 +143,17 @@
     (initialize-inferior-repls!)
     (set! edwin-editor
 	  (make-editor "Edwin"
-		       (let ((name (and (not (null? args))
-                                        (car args))))
+		       (let ((name (and (not (null? args)) (car args))))
 			 (if name
-			     (let ((display-type (name->display-type name)))
-			       (if display-type
-				   (if (display-type/available? display-type)
-				       display-type
-				       (error "Requested display type not available:" display-type))
-				   (error "Unknown display type name:" name)))
-			     (default-display-type '() )))
-		       (if (null? args)
-			   '()
-			   (cdr args))))
+			     (let ((type (name->display-type name)))
+			       (if (not type)
+				   (error "Unknown display type name:" name))
+			       (if (not (display-type/available? type))
+				   (error "Requested display type unavailable:"
+					  type))
+			       type)
+			     (default-display-type '())))
+		       (if (null? args) '() (cdr args))))
     (set! edwin-initialization
 	  (lambda ()
 	    (set! edwin-initialization false)
-- 
2.25.1