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:
parent
9a0dcfb650
commit
7f275baa4e
|
@ -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
|
||||||
|
|
|
@ -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)))))
|
|
||||||
|
|
Loading…
Reference in New Issue