Fix typo in previous change.

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index 9c397554c8debfd3bf3a29698fff36d6d6822877..4cd176e4408ba72e7bd3d1ad34089561dc9895b1 100644 (file)
--- 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 15e31739f3e825d08a0468def3eb2fccc7f99cbf..3bbb2a06f9212ee025526bc72595024ee7dd73c2 100644 (file)
--- 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)))