sunterlib/s48/procedure-tables/procedure-hash.scm

;;; This file is part of the Scheme Untergrund Library.

;;; Copyright (c) 2003 by Taylor Campbell
;;; For copyright information, see the file COPYING which comes with
;;; the distribution.

(define (procedure-hash proc)
  (template-id (closure-template (loophole :closure proc))))
Gah, _really_ a new PROCEDURE-TABLES library...I can't believe I forgot to 'cvs add' it before committing. 2003-10-09 14:50:19 -04:00			`;;; This file is part of the Scheme Untergrund Library.`

			`;;; Copyright (c) 2003 by Taylor Campbell`
			`;;; For copyright information, see the file COPYING which comes with`
			`;;; the distribution.`

			`(define (procedure-hash proc)`
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. 2003-10-27 17:09:02 -05:00			`(template-id (closure-template (loophole :closure proc))))`