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.

This commit is contained in:
Taylor R. Campbell 2003-10-27 22:09:02 +00:00
parent 9a0dcfb650
commit 7f275baa4e
2 changed files with 2 additions and 6 deletions

View File

@ -3,8 +3,7 @@
more-types more-types
loopholes loopholes
closures closures
disclosers disclosers)
debug-data)
(files procedure-hash)) (files procedure-hash))
(define-structure procedure-tables procedure-tables-interface (define-structure procedure-tables procedure-tables-interface

View File

@ -5,7 +5,4 @@
;;; the distribution. ;;; the distribution.
(define (procedure-hash proc) (define (procedure-hash proc)
(debug-data-uid (template-id (closure-template (loophole :closure proc))))
(template-debug-data
(closure-template
(loophole :closure proc)))))