From eef28e295da4f65d9301e76ba565e50195b567ff Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 1 Sep 1994 22:39:01 +0000 Subject: [PATCH] Fixed SIGSEGV bug in %record-application-method. --- v7/src/runtime/record.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm index 5d8521d55..5bf3d407b 100644 --- a/v7/src/runtime/record.scm +++ b/v7/src/runtime/record.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: record.scm,v 1.22 1994/01/31 02:49:45 gjr Exp $ +$Id: record.scm,v 1.23 1994/09/01 22:39:01 adams Exp $ Copyright (c) 1989-1994 Massachusetts Institute of Technology @@ -100,7 +100,8 @@ MIT in each case. |# (define (%record-application-method record) ;; This procedure must match the code in "microcode/interp.c". (let ((record-type (%record-ref record 0))) - (and (and (object-type? (ucode-type constant) + (and (%record? record-type) + (and (object-type? (ucode-type constant) (primitive-object-ref record-type 0)) (>= (%record-length record-type) 2)) (let ((method (%record-ref record-type 1))) -- 2.25.1