private/term-fn.ss
(module term-fn mzscheme
  (provide make-term-fn
           term-fn?
           term-fn-get)
  
  (define-values (struct-type make-term-fn term-fn? term-fn-get term-fn-set!) 
    (make-struct-type 'term-fn #f 1 0)))