module/c/cpp-environment/internal-macro.scm


1
2
3
4
5
6
7
8
9
10
11

(define-module (c cpp-environment internal-macro)
  :use-module (hnh util object)
  :export (internal-macro
           internal-macro?
           identifier body))

(define-type (internal-macro)
  (identifier type: string?)
  (body type: procedure?
        ;; Arity 2
        ))