From: Robin Templeton <robin@terpri.org>
Date: Sat, 14 Jun 2014 20:16:32 +0000 (-0400)
Subject: guile-snarf fix
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/0778570c9f3f22d4fff79152f08721f3d7dbd5a8

guile-snarf fix
---

diff --git a/libguile/guile-snarf.in b/libguile/guile-snarf.in
index 47bbc0422..36cb99598 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