File: theme-d-procedure-utilities.scm

package info (click to toggle)
theme-d 1.4.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 12,784 kB
  • sloc: lisp: 47,684; sh: 4,200; makefile: 455; ansic: 319
file content (24 lines) | stat: -rw-r--r-- 607 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
;; 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))))