From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Aug 1988 20:57:21 +0000 (+0000)
Subject: Repaginate.
X-Git-Tag: 20090517-FFI~12631
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=78ae57e0c2248ff8b5b28d770f4e563bca428c6c;p=mit-scheme.git

Repaginate.
---

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 355019d80..c81eb98ac 100644
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.5 1988/08/05 20:47:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.6 1988/08/05 20:57:12 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -144,7 +144,7 @@ MIT in each case. |#
 ;; Compatibility.
 (define %pwd pwd)
 (define %cd cd)
-
+
 (define (show-time thunk)
   (let ((process-start (process-time-clock))
 	(real-start (real-time-clock)))
@@ -185,7 +185,7 @@ MIT in each case. |#
   (let () (the-environment)))
 
 (define user-initial-prompt
-  "]=>")
+  "]=>")
 (define (copy-program exp)
   (if (not (object-type? (ucode-type compiled-entry) exp))
       (error "COPY-PROGRAM: Can only copy compiled programs" exp))
diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index e617bdda0..4bde31399 100644
--- a/v7/src/runtime/output.scm
+++ b/v7/src/runtime/output.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/output.scm,v 14.3 1988/08/05 20:48:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/output.scm,v 14.4 1988/08/05 20:57:21 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -47,8 +47,7 @@ MIT in each case. |#
 (define (output-port/unparse state port)
   ((unparser/standard-method 'OUTPUT-PORT
 			     (output-port/custom-operation port 'PRINT-SELF))
-   state
-   port))
+   state port))
 
 (define-structure (output-port (conc-name output-port/)
 			       (constructor %make-output-port)
@@ -71,8 +70,7 @@ MIT in each case. |#
 
 (define (output-port/custom-operation port name)
   (let ((entry (assq name (output-port/custom-operations port))))
-    (and entry
-	 (cdr entry))))
+    (and entry (cdr entry))))
 
 (define (output-port/operation port name)
   (or (output-port/custom-operation port name)
@@ -100,10 +98,7 @@ MIT in each case. |#
 	     (operation 'WRITE-STRING default-operation/write-string))
 	    (flush-output
 	     (operation 'FLUSH-OUTPUT default-operation/flush-output)))
-	(%make-output-port state
-			   write-char
-			   write-string
-			   flush-output
+	(%make-output-port state write-char write-string flush-output
 			   operations)))))
 
 (define (default-operation/write-string port string)
diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index e041c4203..7c663acfc 100644
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.5 1988/08/05 20:47:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.6 1988/08/05 20:57:12 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -144,7 +144,7 @@ MIT in each case. |#
 ;; Compatibility.
 (define %pwd pwd)
 (define %cd cd)
-
+
 (define (show-time thunk)
   (let ((process-start (process-time-clock))
 	(real-start (real-time-clock)))
@@ -185,7 +185,7 @@ MIT in each case. |#
   (let () (the-environment)))
 
 (define user-initial-prompt
-  "]=>")
+  "]=>")
 (define (copy-program exp)
   (if (not (object-type? (ucode-type compiled-entry) exp))
       (error "COPY-PROGRAM: Can only copy compiled programs" exp))