From 4764f2c6bea4ab69e74274fb07c731f8bd58c011 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 29 Jan 1994 22:08:15 +0000 Subject: [PATCH] Changed ucode-type fixnum -> positive-fixnum --- v7/src/runtime/hashtb.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/hashtb.scm b/v7/src/runtime/hashtb.scm index 45cab699b..30060c5ea 100644 --- a/v7/src/runtime/hashtb.scm +++ b/v7/src/runtime/hashtb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: hashtb.scm,v 1.17 1993/12/08 21:13:14 cph Exp $ +$Id: hashtb.scm,v 1.18 1994/01/29 22:08:15 adams Exp $ Copyright (c) 1990-93 Massachusetts Institute of Technology @@ -729,8 +729,9 @@ MIT in each case. |# (define-integrable (eq-hash object) (let ((n - ((ucode-primitive primitive-object-set-type) (ucode-type fixnum) - object))) + ((ucode-primitive primitive-object-set-type) + (ucode-type positive-fixnum) + object))) (if (fix:< n 0) (fix:not n) n))) -- 2.25.1