From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Mar 2003 02:03:47 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~1981
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=02896291a2a12df9178567ae47a328601b5bb673;p=mit-scheme.git

Fix typo in previous change.
---

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)))