blob: 0776b255bbac7dc62c3db9493ad5ee5641a55281 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
--- a/lib/c-wrapper/c-parser.scm
+++ b/lib/c-wrapper/c-parser.scm
@@ -1115,7 +1115,9 @@
(raise e))))
(call-with-gcc-io include-dirs headers options
(lambda (in out)
- (let ((macro-list (queue->list (macro-queue))))
+ (let ((macro-list (filter (lambda (m)
+ (not (string-prefix? "__glibc_macro_warning" (car m))))
+ (queue->list (macro-queue)))))
(for-each (lambda (macro-def)
(display (car macro-def) out)
(newline out))
|
GitWeb
