From 817cc74d32d60f058cdf53671229b0513a3f1431 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Dec 1986 23:49:00 +0000
Subject: [PATCH] Change `po' to accept a hash number as an argument and print
 the unhash of that.

---
 v7/src/compiler/base/utils.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index 5a2d98392..389e0508b 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.72 1986/12/16 06:25:56 cph Exp $
+;;; $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 $
 
 (declare (usual-integrations))
 (using-syntax (access compiler-syntax-table compiler-package)
@@ -115,9 +115,12 @@
     (write (vector-method object ':TYPE-NAME))))
 
 (define (po object)
-  (fluid-let ((*unparser-radix* 16))
-    (write-line object)
-    (for-each pp ((vector-method object ':DESCRIBE) object))))
+  (let ((object (if (integer? object)
+		    (object-unhash object)
+		    object)))
+    (fluid-let ((*unparser-radix* 16))
+      (write-line object)
+      (for-each pp ((vector-method object ':DESCRIBE) object)))))
 
 ;;;; Queue
 
-- 
2.25.1