Change record support to understand that a record is applicable only

when its type is a record whose length field has been specially
marked.

diff --git a/v7/src/runtime/uproc.scm b/v7/src/runtime/uproc.scm
index 602fa940324ee336c2ad8a103973ea4c59f87b2b..41372b2107de1352f0c47288a8dc05d0b83c4a98 100644 (file)
--- a/v7/src/runtime/uproc.scm
+++ b/v7/src/runtime/uproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uproc.scm,v 1.5 1992/12/10 01:25:52 cph Exp $
+$Id: uproc.scm,v 1.6 1992/12/10 01:34:17 cph Exp $
 
 Copyright (c) 1990-92 Massachusetts Institute of Technology
 
@@ -84,7 +84,7 @@ MIT in each case. |#
                            (apply-hook-procedure object)
                            (entity-procedure object))))
        ((%record? object)
-        (let ((method (%record-application-method record)))
+        (let ((method (%record-application-method object)))
           (if method
               (skip-entities method)
               object)))