;; Copyright (C) 2008-2013 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.


;; Theme-D procedure utilities


(import (rnrs exceptions)
	(srfi srfi-1)
	(th-scheme-utilities stdutils)
	(th-scheme-utilities hrecord))


(define (set-proc-expr compiler expr s-kind s-name)
  (if (and (list? expr) (not-null? expr))
      (hashq-set! (hfield-ref compiler 'ht-procs) (cdr expr)
		  (list s-kind s-name))))


(define (unset-proc-expr compiler expr)
  (if (and (list? expr) (not-null? expr))
      (hashq-remove! (hfield-ref compiler 'ht-procs) (cdr expr))))

