From c415fcaf83d0d919fca4c0bd8f9566e70e6bf78c Mon Sep 17 00:00:00 2001
From: Michael Gran <address@hidden>
Date: Fri, 11 Mar 2011 09:05:35 -0800
Subject: [PATCH] Don't snarf definition of SCM_SNARF_INIT

A preprocessor may include the #define of SCM_SNARF_INIT in
a preprocessed file. Snarfing that define will create an extraneous
line.

* libguile/guile-snarf.in (modern_snarf): updated
---
 libguile/guile-snarf.in |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/libguile/guile-snarf.in b/libguile/guile-snarf.in
index a1aeba5..b874631 100644
--- a/libguile/guile-snarf.in
+++ b/libguile/guile-snarf.in
@@ -51,7 +51,7 @@ 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/ *\^ *: *\^/\n/;s/[^\n]*\^ *\^ *\([^\n]*\)/\1;/;tx;d;:x;P;D" ${temp}
+    grep -v "define SCM_SNARF_INIT" ${temp} | sed -ne "s/ *\^ *: *\^/\n/;s/[^\n]*\^ *\^ *\([^\n]*\)/\1;/;tx;d;:x;P;D"
 }
 
 ## main
-- 
1.7.4