From db0a0bf95542d3c5b3a5f438dd49aafb2c3ec921 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 10 Sep 1993 17:54:35 +0000 Subject: [PATCH] Generalize input descriptors -- test them using eqv? instead of =. --- v7/src/runtime/thread.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm index d08e3c1d5..39569673d 100644 --- a/v7/src/runtime/thread.scm +++ b/v7/src/runtime/thread.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: thread.scm,v 1.18 1993/09/03 06:59:24 cph Exp $ +$Id: thread.scm,v 1.19 1993/09/10 17:54:35 cph Exp $ Copyright (c) 1991-1993 Massachusetts Institute of Technology @@ -479,7 +479,7 @@ MIT in each case. |# (let ((dentry (let loop ((dentry input-registrations)) (and dentry - (if (= descriptor (dentry/descriptor dentry)) + (if (eqv? descriptor (dentry/descriptor dentry)) dentry (loop (dentry/next dentry))))))) (if (not dentry) @@ -551,7 +551,7 @@ MIT in each case. |# (if (let ((descriptor (dentry/descriptor dentry))) (let loop ((descriptors descriptors)) (and (not (null? descriptors)) - (or (= descriptor (car descriptors)) + (or (eqv? descriptor (car descriptors)) (loop (cdr descriptors)))))) (cons (dentry/first-tentry dentry) tentries) tentries))))) -- 2.25.1