From 7f275baa4ee3b17e28de1dbd07e23a155e4a650b Mon Sep 17 00:00:00 2001 From: "Taylor R. Campbell" Date: Mon, 27 Oct 2003 22:09:02 +0000 Subject: [PATCH] Fixed a _MAJOR_ problem: PROCEDURE-HASH previously wouldn't work in stripped-scsh.image, because templates don't have debug data in them in that; however, they still have uids, so I used TEMPLATE-ID instead of stuff involving debug data. --- s48/procedure-tables/packages.scm | 3 +-- s48/procedure-tables/procedure-hash.scm | 5 +---- 2 files changed, 2 insertions(+), 6 deletions(-) diff --git a/s48/procedure-tables/packages.scm b/s48/procedure-tables/packages.scm index 8b8383e..8d29f1d 100644 --- a/s48/procedure-tables/packages.scm +++ b/s48/procedure-tables/packages.scm @@ -3,8 +3,7 @@ more-types loopholes closures - disclosers - debug-data) + disclosers) (files procedure-hash)) (define-structure procedure-tables procedure-tables-interface diff --git a/s48/procedure-tables/procedure-hash.scm b/s48/procedure-tables/procedure-hash.scm index d898158..ac3eb61 100644 --- a/s48/procedure-tables/procedure-hash.scm +++ b/s48/procedure-tables/procedure-hash.scm @@ -5,7 +5,4 @@ ;;; the distribution. (define (procedure-hash proc) - (debug-data-uid - (template-debug-data - (closure-template - (loophole :closure proc))))) + (template-id (closure-template (loophole :closure proc))))