From 02896291a2a12df9178567ae47a328601b5bb673 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Mar 2003 02:03:47 +0000
Subject: [PATCH] Fix typo in previous change.

---
 v7/src/runtime/defstr.scm | 4 ++--
 v7/src/runtime/port.scm   | 5 ++---
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index 9c397554c..4cd176e44 100644
--- a/v7/src/runtime/defstr.scm
+++ b/v7/src/runtime/defstr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: defstr.scm,v 14.45 2003/03/07 19:09:22 cph Exp $
+$Id: defstr.scm,v 14.46 2003/03/08 02:02:50 cph Exp $
 
 Copyright 1987,1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright 1993,1994,1995,1996,1997,2000 Massachusetts Institute of Technology
@@ -589,7 +589,7 @@ differences:
   (original option/original))
 
 (define-record-type <slot>
-    (make-slot name default type read-only? index)
+  (make-slot name default type read-only?)
     slot?
   (name slot/name)
   (default slot/default)
diff --git a/v7/src/runtime/port.scm b/v7/src/runtime/port.scm
index 15e31739f..3bbb2a06f 100644
--- a/v7/src/runtime/port.scm
+++ b/v7/src/runtime/port.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: port.scm,v 1.29 2003/03/07 21:16:27 cph Exp $
+$Id: port.scm,v 1.30 2003/03/08 02:03:47 cph Exp $
 
 Copyright 1991,1992,1993,1994,1997,1999 Massachusetts Institute of Technology
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
@@ -173,8 +173,7 @@ USA.
     port?
   (type port/type)
   (state %port/state %set-port/state!)
-  (thread-mutex port/thread-mutex)
-  (thread-mutex set-port/thread-mutex!))
+  (thread-mutex port/thread-mutex set-port/thread-mutex!))
 
 (define (port/state port)
   (%port/state (base-port port)))
-- 
2.25.1