13 lines
333 B
Racket
13 lines
333 B
Racket
#lang scheme/base
|
|
|
|
(provide make-term-fn
|
|
term-fn?
|
|
term-fn-get-id
|
|
(struct-out term-id))
|
|
|
|
(define-values (struct-type make-term-fn term-fn? term-fn-get term-fn-set!)
|
|
(make-struct-type 'term-fn #f 1 0))
|
|
(define term-fn-get-id (make-struct-field-accessor term-fn-get 0))
|
|
|
|
(define-struct term-id (id depth))
|