From 76b313969e72860092441f54cc9a4f52c8eaba57 Mon Sep 17 00:00:00 2001 From: Ludovic Courtes Date: Fri, 1 Jun 2007 00:45:58 +0200 Subject: 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. --- guile/modules/system/documentation/c-snarf.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'guile') 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))) -- cgit v1.2.1