From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Oct 2006 04:23:06 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~877
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7ae2b350fdcc86cdb52717b81bf6ad2736d9ba5c;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/v7/src/runtime/port.scm b/v7/src/runtime/port.scm
index f86725f3a..f1dc09a06 100644
--- a/v7/src/runtime/port.scm
+++ b/v7/src/runtime/port.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: port.scm,v 1.44 2006/10/25 03:15:22 cph Exp $
+$Id: port.scm,v 1.45 2006/10/25 04:23:06 cph Exp $
 
 Copyright 1991,1992,1993,1994,1997,1999 Massachusetts Institute of Technology
 Copyright 2001,2002,2003,2004,2005,2006 Massachusetts Institute of Technology
@@ -494,7 +494,7 @@ USA.
 		    (not (char=? (port/previous port) #\newline)))
 	       (write-char port #\newline)
 	       0)))
-	((LINE-START)
+	((LINE-START?)
 	 (lambda (port)
 	   (if (port/previous port)
 	       (char=? (port/previous port) #\newline)