[Guile-commits] 08/36: guile-snarf fix

[Christopher Allan Webber]

cwebber pushed a commit to branch wip-elisp
in repository guile.

commit ca0e317e5b92c2f2c80ad9ba68872ea85c0fd96d
Author: Robin Templeton <address@hidden>
Date:   Sat Jun 14 16:16:32 2014 -0400

    guile-snarf fix
    
    (Best-ability ChangeLog annotation added by Christopher Allan Webber.)
    
    * libguile/guile-snarf.in (modern_snarf): Adjusted.
---
 libguile/guile-snarf.in |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/libguile/guile-snarf.in b/libguile/guile-snarf.in
index 47bbc04..36cb995 100644
--- a/libguile/guile-snarf.in
+++ b/libguile/guile-snarf.in
@@ -52,7 +52,8 @@ modern_snarf ()                         # writes stdout
     ## empty file.
     echo "/* cpp arguments: $@ */" ;
     ${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && 
cpp_ok_p=true
-    sed -ne 's/ *\^ *\^ */\
+    sed -ne '/^#define /d
+s/ *\^ *\^ */\
 /
 s/.*\n//
 t x