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

9 lines
282 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)
(template-id (closure-template (loophole :closure proc))))