diff options
| author | Ludovic Courtes <ludo@chbouib.org> | 2007-06-01 00:45:58 +0200 |
|---|---|---|
| committer | Ludovic Courtes <ludo@chbouib.org> | 2007-06-01 00:45:58 +0200 |
| commit | 76b313969e72860092441f54cc9a4f52c8eaba57 (patch) | |
| tree | 4cda1a869b69374c53fb9aef1d3205de855a0fd9 /guile/modules | |
| parent | be1614e554969c35c5a58fdf0deff4b065cde1fe (diff) | |
| download | gnutls-76b313969e72860092441f54cc9a4f52c8eaba57.tar.gz | |
Tiny bug fixes in Guile's documentation extraction.
* doc/extract-guile-c-doc.scm (main): Use named arguments rather than
a single rest arg.
Fixed the order of arguments as passed to
`run-cpp-and-extract-snarfing' so that `ccache gcc -E' is really
passed as `("ccache" "gcc" "-E")' (in this order).
* guile/modules/system/documentation/c-snarf.scm
(run-cpp-and-extract-snarfing): Pass FILE as the last CPP argument.
Diffstat (limited to 'guile/modules')
| -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))) |