From ecf86a0f2382be991d914cb993918ed189b6eddb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 Jul 2008 07:01:34 +0000
Subject: [PATCH] Fix stupid typo in CALL-WITH-TRUNCATED-OUTPUT-PORT.

---
 v7/src/runtime/output.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index efc089129..2db2df0b8 100644
--- a/v7/src/runtime/output.scm
+++ b/v7/src/runtime/output.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: output.scm,v 14.43 2008/07/26 05:12:20 cph Exp $
+$Id: output.scm,v 14.44 2008/07/26 07:01:34 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -283,7 +283,7 @@ USA.
   (call-with-current-continuation
    (lambda (k)
      (let ((port (make-port truncated-output-type
-			    (make-tstate limit port k 0))))
+			    (make-tstate port limit k 0))))
        (generator port)
        #f))))
 
-- 
2.25.1