* alist.c, arbiters.c, async.c, backtrace.c, boolean.c, chars.c,

continuations.c, debug-malloc.c, debug.c, dynl.c, dynwind.c,
environments.c, eq.c, error.c, eval.c, evalext.c, feature.c,
filesys.c, fluids.c, fports.c, gc.c, goops.c, guardians.c, hash.c,
hashtab.c, hooks.c, ioext.c, iselect.c, keywords.c, lang.c,
list.c, load.c, macros.c, modules.c, net_db.c, numbers.c,
objects.c, objprop.c, options.c, pairs.c, ports.c, posix.c,
print.c, procprop.c, procs.c, properties.c, ramap.c, random.c,
read.c, regex-posix.c, root.c, scmsigs.c, script.c, simpos.c,
socket.c, sort.c, srcprop.c, stackchk.c, stacks.c, stime.c,
strings.c, strop.c, strorder.c, strports.c, struct.c, symbols.c,
tag.c, threads.c, throw.c, unif.c, variable.c, vectors.c,
version.c, vports.c, weaks.c: Makes sure the snarfer output
inclusion is disabled when the snarfer is run on the file.  Thanks
to Lars J. Aas!

* Makefile.am: Install guile-procedures.txt in version-specific
directory to enable multiple installed guile versions.  Suggested
by Karl M. Hegbloom <karlheg@debian.org, patch by Matthias Koeppe.

libguile/ChangeLog

@@ -1,3 +1,25 @@
+2000-11-17  Marius Vollmer  <mvo@zagadka.ping.de>
+
+	* alist.c, arbiters.c, async.c, backtrace.c, boolean.c, chars.c,
+	continuations.c, debug-malloc.c, debug.c, dynl.c, dynwind.c,
+	environments.c, eq.c, error.c, eval.c, evalext.c, feature.c,
+	filesys.c, fluids.c, fports.c, gc.c, goops.c, guardians.c, hash.c,
+	hashtab.c, hooks.c, ioext.c, iselect.c, keywords.c, lang.c,
+	list.c, load.c, macros.c, modules.c, net_db.c, numbers.c,
+	objects.c, objprop.c, options.c, pairs.c, ports.c, posix.c,
+	print.c, procprop.c, procs.c, properties.c, ramap.c, random.c,
+	read.c, regex-posix.c, root.c, scmsigs.c, script.c, simpos.c,
+	socket.c, sort.c, srcprop.c, stackchk.c, stacks.c, stime.c,
+	strings.c, strop.c, strorder.c, strports.c, struct.c, symbols.c,
+	tag.c, threads.c, throw.c, unif.c, variable.c, vectors.c,
+	version.c, vports.c, weaks.c: Makes sure the snarfer output
+	inclusion is disabled when the snarfer is run on the file.  Thanks
+	to Lars J. Aas!
+
+	* Makefile.am: Install guile-procedures.txt in version-specific
+	directory to enable multiple installed guile versions.  Suggested
+	by Karl M. Hegbloom <karlheg@debian.org, patch by Matthias Koeppe.
+
 2000-11-13  Gary Houston  <ghouston@arglist.com>
 
 	* fports.c: include gc.h.

libguile/Makefile.am

@@ -200,7 +200,8 @@ guile-procedures.txt: guile.texi
 	rm -f $@
 	makeinfo --force -o $@ $< || test -f $@
 
-pkgdata_DATA = guile-procedures.txt
+schemelibdir = $(pkgdatadir)/$(VERSION)
+schemelib_DATA = guile-procedures.txt
 
 ## Add -MG to make the .x magic work with auto-dep code.
 MKDEP = gcc -M -MG $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)

libguile/alist.c

@@ -406,7 +406,9 @@ SCM_DEFINE (scm_assoc_remove_x, "assoc-remove!", 2, 0, 0,
 void
 scm_init_alist ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/alist.x"
+#endif
 }
 
 

libguile/arbiters.c

@@ -128,7 +128,9 @@ scm_init_arbiters ()
 {
   scm_tc16_arbiter = scm_make_smob_type_mfpe ("arbiter", 0,
                                               scm_markcdr, NULL, prinarb, NULL);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/arbiters.x"
+#endif
 }
 
 /*

libguile/async.c

@@ -462,7 +462,9 @@ scm_init_async ()
   tc16_async = scm_make_smob_type ("async", 0);
   scm_set_smob_mark (tc16_async, mark_async);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/async.x"
+#endif
 }
 
 /*

libguile/backtrace.c

@@ -637,7 +637,9 @@ scm_init_backtrace ()
   SCM f = scm_make_fluid ();
   scm_the_last_stack_fluid = scm_sysintern ("the-last-stack", f);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/backtrace.x"
+#endif
 }
 
 /*

libguile/boolean.c

@@ -76,7 +76,9 @@ SCM_DEFINE (scm_boolean_p, "boolean?", 1, 0, 0,
 void
 scm_init_boolean ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/boolean.x"
+#endif
 }
 
 

libguile/chars.c

@@ -407,7 +407,9 @@ int scm_n_charnames = sizeof (scm_charnames) / sizeof (char *);
 void
 scm_init_chars ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/chars.x"
+#endif
 }
 
 

libguile/continuations.c

@@ -235,7 +235,9 @@ scm_call_continuation (SCM cont, SCM val)
 void
 scm_init_continuations ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/continuations.x"
+#endif
 }
 
 

libguile/debug-malloc.c

@@ -256,5 +256,8 @@ scm_debug_malloc_prehistory ()
 void
 scm_init_debug_malloc ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/debug-malloc.x"
+#endif
 }
+

libguile/debug.c

@@ -642,7 +642,9 @@ scm_init_debug ()
 #endif
   scm_add_feature ("debug-extensions");
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/debug.x"
+#endif
 }
 
 /*

libguile/dynl.c

@@ -511,7 +511,9 @@ scm_init_dynamic_linking ()
   scm_set_smob_mark (scm_tc16_dynamic_obj, mark_dynl_obj);
   scm_set_smob_print (scm_tc16_dynamic_obj, print_dynl_obj);
   sysdep_dynl_init ();
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/dynl.x"
+#endif
 }
 
 /*

libguile/dynwind.c

@@ -273,7 +273,9 @@ scm_init_dynwind ()
 {
   tc16_guards = scm_make_smob_type_mfpe ("guards", 0,
                                          NULL, scm_free0, printguards, NULL);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/dynwind.x"
+#endif
 }
 
 /*

libguile/environments.c

@@ -2317,7 +2317,9 @@ scm_environments_prehistory ()
 void
 scm_init_environments ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/environments.x"
+#endif
 }
 
 

libguile/eq.c

@@ -205,7 +205,9 @@ SCM_DEFINE1 (scm_equal_p, "equal?", scm_tc7_rpsubr,
 void
 scm_init_eq ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/eq.x"
+#endif
 }
 
 

libguile/error.c

@@ -362,7 +362,9 @@ void
 scm_init_error ()
 {
 #include "libguile/cpp_err_symbols.c"
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/error.x"
+#endif
 }
 
 

libguile/eval.c

@@ -3983,7 +3983,9 @@ scm_init_eval ()
   scm_sym_trace = SCM_CAR (scm_sysintern ("trace", SCM_UNDEFINED));
 #endif
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/eval.x"
+#endif
 
   scm_add_feature ("delay");
 }

libguile/evalext.c

@@ -148,7 +148,9 @@ void
 scm_init_evalext ()
 {
   scm_make_synt (scm_s_set_x, scm_makmmacro, scm_m_generalized_set_x);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/evalext.x"
+#endif
 }
 
 /*

libguile/feature.c

@@ -129,7 +129,9 @@ scm_init_feature()
   
   scm_sysintern ("char-code-limit", SCM_MAKINUM (SCM_CHAR_CODE_LIMIT));
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/feature.x"
+#endif
 }
 
 /*

libguile/filesys.c

@@ -1478,7 +1478,9 @@ scm_sysintern ("F_SETOWN", scm_long2num (F_SETOWN));
 scm_sysintern ("FD_CLOEXEC", scm_long2num (FD_CLOEXEC));
 #endif
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/filesys.x"
+#endif
 }
 
 /*

libguile/fluids.c

@@ -260,7 +260,9 @@ scm_init_fluids ()
 {
   scm_tc16_fluid = scm_make_smob_type_mfpe ("fluid", 0,
                                            NULL, NULL, print_fluid, NULL);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/fluids.x"
+#endif
 }
 
 /*

libguile/fports.c

@@ -745,7 +745,9 @@ scm_make_fptob ()
 void
 scm_init_fports ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/fports.x"
+#endif
   scm_sysintern ("_IOFBF", SCM_MAKINUM (_IOFBF));
   scm_sysintern ("_IOLBF", SCM_MAKINUM (_IOLBF));
   scm_sysintern ("_IONBF", SCM_MAKINUM (_IONBF));

libguile/gc.c

@@ -2590,7 +2590,9 @@ scm_init_gc ()
 
   scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/gc.x"
+#endif
 }
 
 /*

libguile/goops.c

@@ -2718,7 +2718,9 @@ scm_init_goops (void)
 
   goops_rstate = scm_c_make_rstate ("GOOPS", 5);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/goops.x"
+#endif
 
   list_of_no_method = scm_permanent_object (SCM_LIST1 (sym_no_method));
 

libguile/guardians.c

@@ -334,7 +334,9 @@ scm_init_guardian()
   scm_c_hook_add (&scm_before_mark_c_hook, scm_guardian_gc_init, 0, 0);
   scm_c_hook_add (&scm_before_sweep_c_hook, scm_guardian_zombify, 0, 0);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/guardians.x"
+#endif
 }
 
 /*

libguile/hash.c

@@ -252,7 +252,9 @@ SCM_DEFINE (scm_hash, "hash", 2, 0, 0,
 void
 scm_init_hash ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/hash.x"
+#endif
 }
 
 

libguile/hashtab.c

@@ -558,7 +558,9 @@ scm_internal_hash_fold (SCM (*fn) (), void *closure, SCM init, SCM table)
 void
 scm_init_hashtab ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/hashtab.x"
+#endif
 }
 
 /*

libguile/hooks.c

@@ -354,7 +354,9 @@ scm_init_hooks ()
   scm_set_smob_mark (scm_tc16_hook, scm_markcdr);
   scm_set_smob_print (scm_tc16_hook, print_hook);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/hooks.x"
+#endif
 }
 
 /*

libguile/ioext.c

@@ -562,7 +562,9 @@ scm_init_ioext ()
 {
   scm_add_feature ("i/o-extensions");
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/ioext.x"
+#endif
 }
 
 

libguile/iselect.c

@@ -627,7 +627,9 @@ scm_init_iselect ()
   timeout0.tv_usec = 0;
 #endif
   init_bc (0x80, 0, 0);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/iselect.x"
+#endif
 }
 
 #endif /* GUILE_ISELECT */

libguile/keywords.c

@@ -134,7 +134,9 @@ scm_init_keywords ()
                                              scm_markcdr, NULL, prin_keyword, NULL);
 
   scm_keyword_obarray = scm_make_vector (SCM_MAKINUM (256), SCM_EOL);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/keywords.x"
+#endif
 }
 
 

libguile/lang.c

@@ -150,7 +150,9 @@ SCM_DEFINE1 (scm_nil_eq, "nil-eq", scm_tc7_rpsubr,
 void
 scm_init_lang ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/lang.x"
+#endif
   scm_make_synt ("nil-while", scm_makacro, scm_m_while);
 }
 

libguile/list.c

@@ -827,7 +827,9 @@ SCM_DEFINE (scm_delete1_x, "delete1!", 2, 0, 0,
 void
 scm_init_list ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/list.x"
+#endif
 }
 
 /*

libguile/load.c

@@ -517,7 +517,9 @@ scm_init_load ()
 
   init_build_info ();
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/load.x"
+#endif
 }
 
 /*

libguile/macros.c

@@ -181,7 +181,9 @@ scm_init_macros ()
 {
   scm_tc16_macro = scm_make_smob_type_mfpe ("macro", 0,
                                            scm_markcdr, NULL, NULL, NULL);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/macros.x"
+#endif
 }
 
 /*

libguile/modules.c

@@ -269,7 +269,9 @@ SCM_DEFINE (scm_standard_eval_closure, "standard-eval-closure", 1, 0, 0,
 void
 scm_init_modules ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/modules.x"
+#endif
   module_make_local_var_x = scm_sysintern ("module-make-local-var!",
 					   SCM_UNDEFINED);
   scm_eval_closure_tag = scm_make_smob_type ("eval-closure", 0);

libguile/net_db.c

@@ -569,7 +569,9 @@ scm_init_net_db ()
 #endif
 
   scm_add_feature ("net-db");
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/net_db.x"
+#endif
 }
 
 /*

libguile/numbers.c

@@ -4374,7 +4374,9 @@ scm_init_numbers ()
     scm_dblprec = scm_dblprec - 1;
   }
 #endif /* DBL_DIG */
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/numbers.x"
+#endif
 }
 
 /*

libguile/objects.c

@@ -484,7 +484,9 @@ scm_init_objects ()
   SCM_SET_CLASS_DESTRUCTOR (et, scm_struct_free_entity);
   scm_sysintern ("<entity>", et);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/objects.x"
+#endif
 }
 
 /*

libguile/objprop.c

@@ -121,7 +121,9 @@ void
 scm_init_objprop ()
 {
   scm_object_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (511));
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/objprop.x"
+#endif
 }
 
 

libguile/options.c

@@ -233,7 +233,9 @@ void
 scm_init_options ()
 {
   protected_objects = scm_permanent_object (scm_cons (SCM_UNDEFINED, SCM_EOL));
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/options.x"
+#endif
 }
 
 /*

libguile/pairs.c

@@ -171,7 +171,9 @@ scm_init_pairs ()
   for (subnr = 0; cxrs [subnr]; subnr++)
     scm_make_subr(cxrs [subnr], scm_tc7_cxr, NULL);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/pairs.x"
+#endif
 }
 
 

libguile/ports.c

@@ -1441,7 +1441,9 @@ scm_init_ports ()
 
   scm_tc16_void_port = scm_make_port_type ("void", fill_input_void_port, 
 					   write_void_port);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/ports.x"
+#endif
 }
 
 /*

libguile/posix.c

@@ -1314,7 +1314,9 @@ scm_sysintern ("PIPE_BUF", scm_long2num (PIPE_BUF));
 #endif
 
 #include "libguile/cpp_sig_symbols.c"
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/posix.x"
+#endif
 }
 
 /*

libguile/print.c

@@ -1149,7 +1149,9 @@ scm_init_print ()
   scm_set_smob_mark (scm_tc16_port_with_ps, scm_markcdr);
   scm_set_smob_print (scm_tc16_port_with_ps, print_port_with_ps);
   
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/print.x"
+#endif
 }
 
 /*

libguile/procprop.c

@@ -247,7 +247,9 @@ SCM_DEFINE (scm_set_procedure_property_x, "set-procedure-property!", 3, 0, 0,
 void
 scm_init_procprop ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/procprop.x"
+#endif
 }
 
 

libguile/procs.c

@@ -390,7 +390,9 @@ scm_init_subr_table ()
 void
 scm_init_procs ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/procs.x"
+#endif
 }
 
 /*

libguile/properties.c

@@ -145,7 +145,9 @@ void
 scm_init_properties ()
 {
   scm_properties_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (511));
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/properties.x"
+#endif
 }
 
 

libguile/ramap.c

@@ -2049,7 +2049,9 @@ scm_init_ramap ()
   init_raprocs (ra_asubrs);
   scm_make_subr (s_array_equal_p, scm_tc7_rpsubr, scm_array_equal_p);
   scm_smobs[0x0ff & (scm_tc16_array >> 8)].equalp = scm_raequal;
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/ramap.x"
+#endif
   scm_add_feature (s_scm_array_for_each);
 }
 

libguile/random.c

@@ -584,7 +584,9 @@ scm_init_random ()
     for (i = m >> 1; i < m; ++i)
       scm_masktab[i] = m - 1;
   
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/random.x"
+#endif
 
   /* Check that the assumptions about bits per bignum digit are correct. */
 #if SIZEOF_INT == 4

libguile/read.c

@@ -806,7 +806,9 @@ scm_init_read ()
     SCM_CDRLOC (scm_sysintern ("read-hash-procedures", SCM_EOL));
 
   scm_init_opts (scm_read_options, scm_read_opts, SCM_N_READ_OPTIONS);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/read.x"
+#endif
 }
 
 /*

libguile/regex-posix.c

@@ -293,7 +293,9 @@ scm_init_regex_posix ()
   scm_sysintern ("regexp/notbol", scm_long2num (REG_NOTBOL));
   scm_sysintern ("regexp/noteol", scm_long2num (REG_NOTEOL));
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/regex-posix.x"
+#endif
 
   scm_add_feature ("regex");
 }

libguile/root.c

@@ -443,7 +443,9 @@ scm_init_root ()
   scm_set_smob_mark (scm_tc16_root, mark_root);
   scm_set_smob_print (scm_tc16_root, print_root);
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/root.x"
+#endif
 }
 
 /*

libguile/scmsigs.c

@@ -543,7 +543,9 @@ scm_init_scmsigs ()
   scm_sysintern ("SA_RESTART", scm_long2num (SA_RESTART));
 #endif
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/scmsigs.x"
+#endif
 }
 
 

libguile/script.c

@@ -652,7 +652,9 @@ scm_shell (int argc, char **argv)
 void
 scm_init_script ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/script.x"
+#endif
 }
 
 /*

libguile/simpos.c

@@ -133,7 +133,9 @@ SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0,
 void
 scm_init_simpos ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/simpos.x"
+#endif
 }
 
 

libguile/socket.c

@@ -976,7 +976,9 @@ scm_init_socket ()
   scm_add_feature ("socket");
   scm_init_addr_buffer ();
 
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/socket.x"
+#endif
 }
 
 

libguile/sort.c

@@ -924,7 +924,9 @@ SCM_DEFINE (scm_sort_list, "sort-list", 2, 0, 0,
 void
 scm_init_sort ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/sort.x"
+#endif
 
   scm_add_feature ("sort");
 }

libguile/srcprop.c

@@ -334,7 +334,9 @@ scm_init_srcprop ()
   scm_sym_breakpoint = SCM_CAR (scm_sysintern ("breakpoint", SCM_UNDEFINED));
 
   scm_sysintern ("source-whash", scm_source_whash);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/srcprop.x"
+#endif
 }
 
 void

libguile/stackchk.c

@@ -104,7 +104,9 @@ scm_stack_report ()
 void
 scm_init_stackchk ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/stackchk.x"
+#endif
 }
 
 /*

libguile/stacks.c

@@ -743,7 +743,9 @@ scm_init_stacks ()
 						       SCM_EOL)));
   scm_set_struct_vtable_name_x (scm_stack_type,
 				SCM_CAR (scm_intern0 ("stack")));
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/stacks.x"
+#endif
 }
 
 /*

libguile/stime.c

@@ -712,7 +712,9 @@ scm_init_stime()
   if (!scm_my_base) scm_my_base = mytime();
 
   scm_add_feature ("current-time");
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/stime.x"
+#endif
 }
 
 

libguile/strings.c

@@ -392,7 +392,9 @@ SCM_DEFINE (scm_make_shared_substring, "make-shared-substring", 1, 2, 0,
 void
 scm_init_strings ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/strings.x"
+#endif
 }
 
 

libguile/strop.c

@@ -477,7 +477,9 @@ SCM_DEFINE (scm_string_ci_to_symbol, "string-ci->symbol", 1, 0, 0,
 void
 scm_init_strop ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/strop.x"
+#endif
 }
 
 /*

libguile/strorder.c

@@ -256,7 +256,9 @@ SCM_DEFINE1 (scm_string_ci_geq_p, "string-ci>=?", scm_tc7_rpsubr,
 void
 scm_init_strorder ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/strorder.x"
+#endif
 }
 
 

libguile/strports.c

@@ -432,7 +432,9 @@ scm_make_stptob ()
 void
 scm_init_strports ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/strports.x"
+#endif
 }
 
 

libguile/struct.c

@@ -825,7 +825,9 @@ scm_init_struct ()
   scm_sysintern ("vtable-index-vtable", SCM_MAKINUM (scm_vtable_index_vtable));
   scm_sysintern ("vtable-index-printer", SCM_MAKINUM (scm_vtable_index_printer));
   scm_sysintern ("vtable-offset-user", SCM_MAKINUM (scm_vtable_offset_user));
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/struct.x"
+#endif
 }
 
 /*

libguile/symbols.c

@@ -908,7 +908,9 @@ scm_init_symbols ()
 {
   gensym_counter = 0;
   gentemp_counter = 0;
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/symbols.x"
+#endif
 }
 
 /*

libguile/tag.c

@@ -218,7 +218,9 @@ SCM_DEFINE (scm_tag, "tag", 1, 0, 0,
 void
 scm_init_tag ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/tag.x"
+#endif
 }
 
 

libguile/threads.c

@@ -146,7 +146,9 @@ scm_init_threads (SCM_STACKITEM *i)
   scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m));
   scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c));
                                         
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/threads.x"
+#endif
   /* Initialize implementation specific details of the threads support */
   scm_threads_init (i);
 }

libguile/throw.c

@@ -706,7 +706,9 @@ scm_init_throw ()
 					     NULL,
 					     print_lazy_catch,
 					     NULL);
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/throw.x"
+#endif
 }
 
 /*

libguile/unif.c

@@ -2557,7 +2557,9 @@ scm_init_unif ()
 					    scm_raprin1,
 					    scm_array_equal_p);
   scm_add_feature ("array");
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/unif.x"
+#endif
 }
 
 /*

libguile/variable.c

@@ -235,7 +235,9 @@ scm_init_variable ()
   scm_tc16_variable = scm_make_smob_type_mfpe ("variable", 0,
                                               scm_markvar, NULL, prin_var, var_equal);
   anonymous_variable_sym = SCM_CAR (scm_sysintern ("anonymous-variable", SCM_UNDEFINED));
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/variable.x"
+#endif
 }
 
 

libguile/vectors.c

@@ -407,7 +407,9 @@ SCM_DEFINE (scm_vector_move_right_x, "vector-move-right!", 5, 0, 0,
 void
 scm_init_vectors ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/vectors.x"
+#endif
 }
 
 

libguile/version.c

@@ -100,7 +100,9 @@ SCM_DEFINE (scm_version, "version", 0, 0, 0,
 void
 scm_init_version ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/version.x"
+#endif
 }
 
 /*

libguile/vports.c

@@ -211,7 +211,9 @@ scm_make_sfptob ()
 void
 scm_init_vports ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/vports.x"
+#endif
 }
 
 /*

libguile/weaks.c

@@ -327,7 +327,9 @@ scm_weaks_prehistory ()
 void
 scm_init_weaks ()
 {
+#ifndef SCM_MAGIC_SNARFER
 #include "libguile/weaks.x"
+#endif
 }