From 0097cb97dea5c4271e8202a1b9d48a5271a83e1b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 15 Dec 1986 21:44:26 +0000 Subject: [PATCH] Add hash number to printed representation of compiler data structures to facilitate debugging. --- v7/src/compiler/base/utils.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm index 73af84709..2739dc37a 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.70 1986/12/15 05:28:22 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.71 1986/12/15 21:44:26 cph Exp $ (declare (usual-integrations)) (using-syntax (access compiler-syntax-table compiler-package) @@ -53,7 +53,10 @@ (lambda () (write-string "LIAR ") (fluid-let ((*unparser-radix* 16)) - ((vector-method object ':UNPARSE) object)))))) + ((vector-method object ':UNPARSE) object)) + (write-string " ") + (fluid-let ((*unparser-radix* 10)) + (write-string (object-hash object))))))) tag)) (define (vector-tag-put! tag key value) @@ -109,9 +112,7 @@ (define-unparser vector-tag:object (lambda (object) - (write (vector-method object ':TYPE-NAME)) - (write-string " ") - (write (primitive-datum object)))) + (write (vector-method object ':TYPE-NAME)))) (define (po object) (fluid-let ((*unparser-radix* 16)) -- 2.25.1