diff options
Diffstat (limited to 'guile/modules/system/documentation/c-snarf.scm')
| -rw-r--r-- | guile/modules/system/documentation/c-snarf.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guile/modules/system/documentation/c-snarf.scm b/guile/modules/system/documentation/c-snarf.scm index c0ca2e819b..204aa90c24 100644 --- a/guile/modules/system/documentation/c-snarf.scm +++ b/guile/modules/system/documentation/c-snarf.scm @@ -45,8 +45,9 @@ ;;; High-level API. ;;; -(define (run-cpp-and-extract-snarfing file cpp cflags) - (let ((pipe (apply open-pipe* OPEN_READ cpp file cflags))) +(define (run-cpp-and-extract-snarfing file cpp cpp-flags) + (let ((pipe (apply open-pipe* OPEN_READ + (cons cpp (append cpp-flags (list file)))))) (parse-snarfing pipe))) |