From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Jun 1987 21:03:20 +0000 (+0000)
Subject: Fix stupid error in last modification.
X-Git-Tag: 20090517-FFI~13355
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=78922ec58b44f5369220f0829efcb500886a6e71;p=mit-scheme.git

Fix stupid error in last modification.
---

diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index d3b7a2e9c..ad94f78cf 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 13.45 1987/06/17 21:01:17 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/output.scm,v 13.46 1987/06/17 21:03:20 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -327,8 +327,8 @@
        (if (and (not (future? object))
 		(string? object))
 	   ((access :write-string port) object)
-	   ((access unparse-object unparser-package) object port false)
-	   ((access :flush-output port))))))
+	   ((access unparse-object unparser-package) object port false))
+       ((access :flush-output port)))))
   (set! write
     (make-unparser
      (lambda (object port)