(SCM_SNARF_INIT): Add "^:^" after code so that guile-snarf can remove

trailing non-init code.

diff --git a/libguile/snarf.h b/libguile/snarf.h
index 4e94484..ac12f2b 100644 (file)
--- a/libguile/snarf.h
+++ b/libguile/snarf.h
@@ -75,7 +75,7 @@
 
 #ifdef SCM_MAGIC_SNARF_INITS
 # define SCM_SNARF_HERE(X)
-# define SCM_SNARF_INIT(X) ^^ X
+# define SCM_SNARF_INIT(X) ^^ X ^:^
 # define SCM_SNARF_DOCS(TYPE, CNAME, FNAME, ARGLIST, REQ, OPT, VAR, DOCSTRING)
 #else
 # ifdef SCM_MAGIC_SNARF_DOCS