From c7c03b9f876e63ac360d1567adeda05652ab0295 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Mon, 21 Oct 1996 23:53:01 +0000
Subject: [PATCH] * boot-9.scm: Formatting tweaks.

---
 ice-9/boot-9.scm | 36 ++++++++++++++++++++++++------------
 1 file changed, 24 insertions(+), 12 deletions(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 17b9fe75d..df79f37e3 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -296,19 +296,24 @@
     (apply-to-args (append args (list-cdr-ref default-args (length args)))
       (lambda (port depth length style table)
 	(cond
-	 ((and table (print-table-ref table obj))		((print-style-tag-hook style 'eq-val)
-								 obj port depth length style table))
+	 ((and table (print-table-ref table obj))
+	  ((print-style-tag-hook style 'eq-val) 
+	   obj port depth length style table))
 	 (else
 	  (and table (print-table-add! table obj))
 	  (cond
-	   ((print-style-max-depth? style depth)        	((print-style-excess-depth-hook style)))
-	   ((print-style-max-length? style length)      	((print-style-excess-length-hook style)))
-	   (else 					    	((print-style-hook style obj)
-								 obj port depth length style table)))))))))
+	   ((print-style-max-depth? style depth)
+	    ((print-style-excess-depth-hook style)))
+	   ((print-style-max-length? style length)
+	    ((print-style-excess-length-hook style)))
+	   (else
+	    ((print-style-hook style obj)
+	     obj port depth length style table)))))))))
 
 (define (make-print-style) (make-vector 59 '()))
 
-(define (extend-print-style! style utag printer) (hashq-set! style utag printer))
+(define (extend-print-style! style utag printer)
+  (hashq-set! style utag printer))
 
 (define (print-style-hook style obj)
   (let ((type-tag (tag obj)))
@@ -322,8 +327,10 @@
 
 (define (print-style-max-depth? style d) #f)
 (define (print-style-max-length? style l) #f)
-(define (print-style-excess-length-hook style) (hashq-ref style 'excess-length-hook))
-(define (print-style-excess-depth-hook style) (hashq-ref style 'excess-depth-hook))
+(define (print-style-excess-length-hook style)
+  (hashq-ref style 'excess-length-hook))
+(define (print-style-excess-depth-hook style)
+  (hashq-ref style 'excess-depth-hook))
 
 (define (make-print-table) (make-vector 59 '()))
 (define (print-table-ref table obj) (hashq-ref table obj))
@@ -348,7 +355,8 @@
    ((null? (cdr pair))		(display #\) port))
    
    (else			(display " . " port)
-				(print (cdr pair) port (+ 1 depth) 0 style table)
+				(print (cdr pair) port (+ 1 depth) 0
+				       style table)
 				(display #\) port))))
 
 (define (print-vector obj port depth length style table)
@@ -365,7 +373,9 @@
   (cond
    ((>= (+ 1 length) (vector-length obj))	(display #\) port))
    (else					(display #\space port)
-						(print obj port depth (+ 1 length) style table))))
+						(print obj port depth
+						       (+ 1 length)
+						       style table))))
 
 (define default-print-style (make-print-style))
 
@@ -392,7 +402,9 @@
 (define (make-record-type type-name fields . opt)
   (let ((printer-fn (and (pair? opt) (car opt))))
     (let ((struct (make-struct record-type-vtable 0
-			       (make-struct-layout (apply symbol-append (map (lambda (f) "pw") fields)))
+			       (make-struct-layout
+				(apply symbol-append
+				       (map (lambda (f) "pw") fields)))
 			       type-name
 			       (copy-tree fields))))
       ;; !!! leaks printer functions