From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Mar 2003 03:12:15 +0000 (+0000)
Subject: Fix mistaken reference to DEFINE-STRUCTURE type descriptor.
X-Git-Tag: 20090517-FFI~1964
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=07f451fcbb95b3a046174ed322d3ffed08ace435;p=mit-scheme.git

Fix mistaken reference to DEFINE-STRUCTURE type descriptor.
---

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index d3cae3a26..0ab26cc11 100644
--- a/v7/src/runtime/thread.scm
+++ b/v7/src/runtime/thread.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: thread.scm,v 1.39 2003/02/14 18:28:34 cph Exp $
+$Id: thread.scm,v 1.40 2003/03/13 03:12:15 cph Exp $
 
 Copyright 1991,1992,1993,1998,1999,2001 Massachusetts Institute of Technology
 Copyright 2003 Massachusetts Institute of Technology
@@ -998,7 +998,7 @@ USA.
   (without-interrupts
    (lambda ()
      (let ((owner (thread-mutex/owner mutex)))
-       (if (and thread (not (eq? owner (current-thread))))
+       (if (and owner (not (eq? owner (current-thread))))
 	   (error "Don't own mutex:" mutex))
        (%unlock-thread-mutex mutex owner)))))
 
diff --git a/v7/src/runtime/ystep.scm b/v7/src/runtime/ystep.scm
index 63e5f77b7..84c1bfb74 100644
--- a/v7/src/runtime/ystep.scm
+++ b/v7/src/runtime/ystep.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ystep.scm,v 1.6 2003/03/10 20:53:34 cph Exp $
+$Id: ystep.scm,v 1.7 2003/03/13 03:11:12 cph Exp $
 
 Copyright 1994,1997,2003 Massachusetts Institute of Technology
 
@@ -371,7 +371,7 @@ USA.
       (set-ynode-children! new-node children)
       (for-each (lambda (c) (set-ynode-parent! c new-node)) children)
       (let loop ((node new-node))
-	(ynode-needs-redisplay! ynode)
+	(ynode-needs-redisplay! node)
 	(for-each loop (ynode-children node)))
       new-node)))
 
diff --git a/v7/src/sos/class.scm b/v7/src/sos/class.scm
index d0a0eb88d..aec11f2b3 100644
--- a/v7/src/sos/class.scm
+++ b/v7/src/sos/class.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: class.scm,v 1.15 2003/02/14 18:28:35 cph Exp $
+$Id: class.scm,v 1.16 2003/03/13 03:10:20 cph Exp $
 
 Copyright 1995,1997,2002,2002,2003 Massachusetts Institute of Technology
 
@@ -27,7 +27,8 @@ USA.
 
 (declare (usual-integrations))
 
-(define-structure (class (conc-name class/)
+(define-structure (class (type-descriptor class-rtd)
+			 (conc-name class/)
 			 (constructor %make-class
 				      (name direct-superclasses direct-slots))
 			 (print-procedure