From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Dec 1986 23:52:14 +0000 (+0000)
Subject: Use user-level hash operators rather than primitives.
X-Git-Tag: 20090517-FFI~13802
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8540276480ffdecb236bb0ce6e74a5e9be184937;p=mit-scheme.git

Use user-level hash operators rather than primitives.
---

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index 389e0508b..87a13b075 100644
--- a/v7/src/compiler/base/utils.scm
+++ b/v7/src/compiler/base/utils.scm
@@ -37,7 +37,7 @@
 
 ;;;; Compiler Utilities
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.73 1986/12/16 23:49:00 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.74 1986/12/16 23:52:14 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access compiler-syntax-table compiler-package)
@@ -56,7 +56,7 @@
 	    ((vector-method object ':UNPARSE) object))
 	  (write-string " ")
 	  (fluid-let ((*unparser-radix* 10))
-	    (write (object-hash object)))))))
+	    (write (hash object)))))))
     tag))
 
 (define (vector-tag-put! tag key value)
@@ -116,7 +116,7 @@
 
 (define (po object)
   (let ((object (if (integer? object)
-		    (object-unhash object)
+		    (unhash object)
 		    object)))
     (fluid-let ((*unparser-radix* 16))
       (write-line object)