*** empty log message ***

diff --git a/v7/src/runtime/hash.scm b/v7/src/runtime/hash.scm
index 02e27645bedf837e5374049c3af8740e14d4d768..4c2ba77046d1e26d2a49ce69a654e9dd80da5172 100644 (file)
--- a/v7/src/runtime/hash.scm
+++ b/v7/src/runtime/hash.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/hash.scm,v 13.43 1987/02/12 09:08:35 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/hash.scm,v 13.44 1987/02/12 09:30:28 cph Exp $
 ;;;
 ;;;    Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -104,8 +104,7 @@
          (error "unhash: Not a valid hash number" n))))
 
 (define (valid-hash-number? n)
-  (if (zero? n)
-      true
+  (or (zero? n)
       (object-unhash n)))
 
 (define object-hash)
@@ -129,8 +128,7 @@
   (set! hash-table (vector-cons (1+ size) '()))
   (vector-set! hash-table 0 (&make-object snmv-type size))
   (let initialize ((n 0))
-    (if (= n size)
-       true
+    (if (< n size)
        (begin (vector-set! unhash-table n (cons true '()))
               (initialize (1+ n))))))
 \f
@@ -145,7 +143,7 @@
      (let* ((hash-index (1+ (modulo (primitive-datum object) hash-table-size)))
            (bucket (vector-ref hash-table hash-index))
            (association (assq object bucket)))
-       (if (not (null? association))
+       (if association
           (cdr association)
           (let ((pair (cons object next-hash-number))
                 (result next-hash-number)
@@ -167,7 +165,7 @@
 (named-lambda (object-unhash number)
   (let ((index (modulo number hash-table-size)))
     (with-interrupt-mask interrupt-mask-none
-     (lambda (ie)
+     (lambda (ignore)
        (let ((bucket (vector-ref unhash-table index)))
         (set-car! bucket false)
         (let ((result