aboutsummaryrefslogtreecommitdiff
path: root/module/c/cpp-environment/function-like-macro.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/c/cpp-environment/function-like-macro.scm')
-rw-r--r--module/c/cpp-environment/function-like-macro.scm25
1 files changed, 0 insertions, 25 deletions
diff --git a/module/c/cpp-environment/function-like-macro.scm b/module/c/cpp-environment/function-like-macro.scm
deleted file mode 100644
index 59b47c9c..00000000
--- a/module/c/cpp-environment/function-like-macro.scm
+++ /dev/null
@@ -1,25 +0,0 @@
-(define-module (c cpp-environment function-like-macro)
- :use-module (hnh util object)
- :use-module (hnh util type)
- :use-module ((c lex2) :select (lexeme?))
- :use-module ((c unlex) :select (unlex))
- :export (function-like-macro
- function-like-macro?
- identifier
- identifier-list
- body
- variadic?))
-
-(define-type (function-like-macro
- printer: (lambda (r p)
- (format p "#<#define ~a~a ~a>"
- (identifier r)
- (append (identifier-list r)
- (if (variadic? r)
- '("...") '()))
- (unlex (body r)))))
- (identifier type: string?)
- (identifier-list type: (list-of string?))
- (body type: (list-of lexeme?))
- (variadic? type: boolean?
- default: #f))