https://www.mail-archive.com/fink-users@lists.sourceforge.net/msg39760.html
http://fink.cvs.sourceforge.net/viewvc/fink/dists/10.7/stable/main/finkinfo/languages/guile18.patch?r1=1.2&r2=1.4

--- libguile/Makefile.in~	2010-12-13 20:29:39.000000000 +0100
+++ libguile/Makefile.in	2014-04-02 10:29:34.000000000 +0200
@@ -2158,6 +2158,8 @@
 .c.doc:
 	-$(AWK) -f ./guile-func-name-check $<
 	(./guile-snarf-docs $(snarfcppopts) $< | \
+	   sed -e 's|ENDL|\
+|g' -e '/^#/d' | \
 	./guile_filter_doc_snarfage$(EXEEXT) --filter-snarfage) > $@ || { rm $@; false; }
 
 $(DOT_X_FILES) $(EXTRA_DOT_X_FILES): scmconfig.h snarf.h guile-snarf.in
--- libguile/guile-snarf.in~	2010-12-13 18:24:40.000000000 +0100
+++ libguile/guile-snarf.in	2014-04-02 09:17:20.000000000 +0200
@@ -50,7 +50,8 @@
     ## Apparently, AIX's preprocessor is unhappy if you try to #include an
     ## empty file.
     echo "/* cpp arguments: $@ */" ;
-    ${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" > ${temp} && cpp_ok_p=true
+    ${cpp} -DSCM_MAGIC_SNARF_INITS -DSCM_MAGIC_SNARFER "$@" | sed -e 's|ENDL|\
+|g' > ${temp} && cpp_ok_p=true
     grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//" -e "s/\^\ *:\ *\^.*/;/"
 }
 
--- libguile/snarf.h~	2010-12-13 18:24:40.000000000 +0100
+++ libguile/snarf.h	2014-04-01 14:46:36.000000000 +0200
@@ -51,14 +51,14 @@
 
 #ifdef SCM_MAGIC_SNARF_INITS
 # define SCM_SNARF_HERE(X)
-# define SCM_SNARF_INIT(X) ^^ X ^:^
+# define SCM_SNARF_INIT(x) ENDL^^ x ^:^
 # define SCM_SNARF_DOCS(TYPE, CNAME, FNAME, ARGLIST, REQ, OPT, VAR, DOCSTRING)
 #else
 # ifdef SCM_MAGIC_SNARF_DOCS
 #  define SCM_SNARF_HERE(X)
 #  define SCM_SNARF_INIT(X)
 #  define SCM_SNARF_DOCS(TYPE, CNAME, FNAME, ARGLIST, REQ, OPT, VAR, DOCSTRING) \
-^^ { \
+ENDL^^ { \
 cname CNAME ^^ \
 fname FNAME ^^ \
 type TYPE ^^ \
@@ -272,7 +272,7 @@
 
 #ifdef SCM_MAGIC_SNARF_DOCS
 #undef SCM_ASSERT
-#define SCM_ASSERT(_cond, _arg, _pos, _subr) ^^ argpos _arg _pos __LINE__ ^^
+#define SCM_ASSERT(_cond, _arg, _pos, _subr) ENDL^^ argpos _arg _pos __LINE__ ^^
 #endif /* SCM_MAGIC_SNARF_DOCS */
 
 #endif  /* SCM_SNARF_H */