Fix mistaken reference to DEFINE-STRUCTURE type descriptor.

diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm
index d3cae3a2644f52687ea375180e63a4bbadf24f8f..0ab26cc119875068801389087ad2e4cda956cfe9 100644 (file)
--- 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 63e5f77b7f63a3308385d3f5e623840487fc8b27..84c1bfb74fc9457dd1b9084af2e872389d19c5ea 100644 (file)
--- 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 d0a0eb88d002762997df016e5cee63d7fb6c125c..aec11f2b3ce84d250b9a247fe0d853512c50aed1 100644 (file)
--- 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))
 \f
-(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