Repaginate.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 355019d8086157c7c2d1edea822518f4aaf88b3e..c81eb98ac6f18bf50e9bde4cd34ff14946ef89aa 100644 (file)
--- 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)
-
+\f
 (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
-  "]=>")
+  "]=>")\f
 (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 e617bdda0eb353161c7dc8f9213e94c6644c9dca..4bde313997298f8308a7fd9f11f15afab2b07f44 100644 (file)
--- 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 e041c4203e3f7f2b14b71526a8df7854dce9fef9..7c663acfcfce469385556244212f0112d9dc15a3 100644 (file)
--- 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)
-
+\f
 (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
-  "]=>")
+  "]=>")\f
 (define (copy-program exp)
   (if (not (object-type? (ucode-type compiled-entry) exp))
       (error "COPY-PROGRAM: Can only copy compiled programs" exp))