12 lines
319 B
Scheme
12 lines
319 B
Scheme
;;; 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)
|
|
(debug-data-uid
|
|
(template-debug-data
|
|
(closure-template
|
|
(loophole :closure proc)))))
|