mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Retire inclusion guard macro SCM_MAGIC_SNARFER.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2002-03-14 03:47:43 +00:00
parent 2287fb53d4
commit a6b844c224
80 changed files with 0 additions and 160 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/alist.c
View file

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

2
libguile/arbiters.c
View file

@ -129,9 +129,7 @@ scm_init_arbiters ()
scm_tc16_arbiter = scm_make_smob_type ("arbiter", 0); scm_tc16_arbiter = scm_make_smob_type ("arbiter", 0);
scm_set_smob_mark (scm_tc16_arbiter, scm_markcdr); scm_set_smob_mark (scm_tc16_arbiter, scm_markcdr);
scm_set_smob_print (scm_tc16_arbiter, arbiter_print); scm_set_smob_print (scm_tc16_arbiter, arbiter_print);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/arbiters.x" #include "libguile/arbiters.x"
#endif
} }
/* /*

2
libguile/async.c
View file

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

2
libguile/backtrace.c
View file

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

2
libguile/boolean.c
View file

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

2
libguile/chars.c
View file

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

2
libguile/continuations.c
View file

@ -312,9 +312,7 @@ scm_init_continuations ()
scm_set_smob_free (scm_tc16_continuation, continuation_free); scm_set_smob_free (scm_tc16_continuation, continuation_free);
scm_set_smob_print (scm_tc16_continuation, continuation_print); scm_set_smob_print (scm_tc16_continuation, continuation_print);
scm_set_smob_apply (scm_tc16_continuation, continuation_apply, 0, 0, 1); scm_set_smob_apply (scm_tc16_continuation, continuation_apply, 0, 0, 1);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/continuations.x" #include "libguile/continuations.x"
#endif
} }
/* /*

2
libguile/debug-malloc.c
View file

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

2
libguile/debug.c
View file

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

2
libguile/deprecation.c
View file

@ -185,9 +185,7 @@ scm_init_deprecation ()
atexit (print_deprecation_summary); atexit (print_deprecation_summary);
} }
#endif #endif
#ifndef SCM_MAGIC_SNARFER
#include "libguile/deprecation.x" #include "libguile/deprecation.x"
#endif
} }
/* /*

2
libguile/dynl.c
View file

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

2
libguile/dynwind.c
View file

@ -282,9 +282,7 @@ scm_init_dynwind ()
{ {
tc16_guards = scm_make_smob_type ("guards", 0); tc16_guards = scm_make_smob_type ("guards", 0);
scm_set_smob_print (tc16_guards, guards_print); scm_set_smob_print (tc16_guards, guards_print);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/dynwind.x" #include "libguile/dynwind.x"
#endif
} }
/* /*

2
libguile/environments.c
View file

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

2
libguile/eq.c
View file

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

2
libguile/error.c
View file

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

2
libguile/eval.c
View file

@ -4285,9 +4285,7 @@ scm_init_eval ()
/* acros */ /* acros */
/* end of acros */ /* end of acros */
#ifndef SCM_MAGIC_SNARFER
#include "libguile/eval.x" #include "libguile/eval.x"
#endif
scm_add_feature ("delay"); scm_add_feature ("delay");
} }

2
libguile/evalext.c
View file

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

2
libguile/extensions.c
View file

@ -163,9 +163,7 @@ void
scm_init_extensions () scm_init_extensions ()
{ {
registered_extensions = NULL; registered_extensions = NULL;
#ifndef SCM_MAGIC_SNARFER
#include "libguile/extensions.x" #include "libguile/extensions.x"
#endif
} }
/* /*

2
libguile/feature.c
View file

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

2
libguile/filesys.c
View file

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

2
libguile/fluids.c
View file

@ -262,9 +262,7 @@ scm_init_fluids ()
{ {
scm_tc16_fluid = scm_make_smob_type ("fluid", 0); scm_tc16_fluid = scm_make_smob_type ("fluid", 0);
scm_set_smob_print (scm_tc16_fluid, fluid_print); scm_set_smob_print (scm_tc16_fluid, fluid_print);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/fluids.x" #include "libguile/fluids.x"
#endif
} }
/* /*

2
libguile/fports.c
View file

@ -867,9 +867,7 @@ scm_init_fports ()
scm_c_define ("_IOLBF", SCM_MAKINUM (_IOLBF)); scm_c_define ("_IOLBF", SCM_MAKINUM (_IOLBF));
scm_c_define ("_IONBF", SCM_MAKINUM (_IONBF)); scm_c_define ("_IONBF", SCM_MAKINUM (_IONBF));
#ifndef SCM_MAGIC_SNARFER
#include "libguile/fports.x" #include "libguile/fports.x"
#endif
} }
/* /*

2
libguile/gc.c
View file

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

2
libguile/goops.c
View file

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

2
libguile/gsubr.c
View file

@ -288,9 +288,7 @@ scm_init_gsubr()
scm_c_define_gsubr ("gsubr-2-1-l", 2, 1, 1, gsubr_21l); /* example */ scm_c_define_gsubr ("gsubr-2-1-l", 2, 1, 1, gsubr_21l); /* example */
#endif #endif
#ifndef SCM_MAGIC_SNARFER
#include "libguile/gsubr.x" #include "libguile/gsubr.x"
#endif
} }
/* /*

2
libguile/guardians.c
View file

@ -630,9 +630,7 @@ scm_init_guardians ()
greedily_guarded_whash = greedily_guarded_whash =
scm_permanent_object (scm_make_doubly_weak_hash_table (SCM_MAKINUM (31))); scm_permanent_object (scm_make_doubly_weak_hash_table (SCM_MAKINUM (31)));
#ifndef SCM_MAGIC_SNARFER
#include "libguile/guardians.x" #include "libguile/guardians.x"
#endif
} }
/* /*

2
libguile/hash.c
View file

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

2
libguile/hashtab.c
View file

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

2
libguile/hooks.c
View file

@ -322,9 +322,7 @@ scm_init_hooks ()
scm_tc16_hook = scm_make_smob_type ("hook", 0); scm_tc16_hook = scm_make_smob_type ("hook", 0);
scm_set_smob_mark (scm_tc16_hook, scm_markcdr); scm_set_smob_mark (scm_tc16_hook, scm_markcdr);
scm_set_smob_print (scm_tc16_hook, hook_print); scm_set_smob_print (scm_tc16_hook, hook_print);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/hooks.x" #include "libguile/hooks.x"
#endif
} }
/* /*

2
libguile/ioext.c
View file

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

2
libguile/iselect.c
View file

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

2
libguile/keywords.c
View file

@ -138,9 +138,7 @@ scm_init_keywords ()
scm_set_smob_print (scm_tc16_keyword, keyword_print); scm_set_smob_print (scm_tc16_keyword, keyword_print);
scm_keyword_obarray = scm_c_make_hash_table (256); scm_keyword_obarray = scm_c_make_hash_table (256);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/keywords.x" #include "libguile/keywords.x"
#endif
} }

2
libguile/lang.c
View file

@ -155,9 +155,7 @@ void
scm_init_lang () scm_init_lang ()
{ {
#if 0 #if 0
#ifndef SCM_MAGIC_SNARFER
#include "libguile/lang.x" #include "libguile/lang.x"
#endif
scm_make_synt ("nil-while", scm_makacro, scm_m_while); scm_make_synt ("nil-while", scm_makacro, scm_m_while);
#endif #endif

2
libguile/list.c
View file

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

2
libguile/load.c
View file

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

2
libguile/macros.c
View file

@ -230,9 +230,7 @@ scm_init_macros ()
scm_tc16_macro = scm_make_smob_type ("macro", 0); scm_tc16_macro = scm_make_smob_type ("macro", 0);
scm_set_smob_mark (scm_tc16_macro, scm_markcdr); scm_set_smob_mark (scm_tc16_macro, scm_markcdr);
scm_set_smob_print (scm_tc16_macro, macro_print); scm_set_smob_print (scm_tc16_macro, macro_print);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/macros.x" #include "libguile/macros.x"
#endif
} }
/* /*

2
libguile/modules.c
View file

@ -610,9 +610,7 @@ scm_modules_prehistory ()
void void
scm_init_modules () scm_init_modules ()
{ {
#ifndef SCM_MAGIC_SNARFER
#include "libguile/modules.x" #include "libguile/modules.x"
#endif
module_make_local_var_x_var = scm_c_define ("module-make-local-var!", module_make_local_var_x_var = scm_c_define ("module-make-local-var!",
SCM_UNDEFINED); SCM_UNDEFINED);
scm_tc16_eval_closure = scm_make_smob_type ("eval-closure", 0); scm_tc16_eval_closure = scm_make_smob_type ("eval-closure", 0);

2
libguile/net_db.c
View file

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

2
libguile/numbers.c
View file

@ -4616,9 +4616,7 @@ scm_init_numbers ()
check_sanity (); check_sanity ();
#endif #endif
#ifndef SCM_MAGIC_SNARFER
#include "libguile/numbers.x" #include "libguile/numbers.x"
#endif
} }
/* /*

2
libguile/objects.c
View file

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

2
libguile/objprop.c
View file

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

2
libguile/options.c
View file

@ -294,9 +294,7 @@ scm_init_options ()
{ {
scm_gc_register_root (&protected_objects); scm_gc_register_root (&protected_objects);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/options.x" #include "libguile/options.x"
#endif
} }
/* /*

2
libguile/pairs.c
View file

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

2
libguile/ports.c
View file

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

2
libguile/posix.c
View file

@ -1730,9 +1730,7 @@ scm_init_posix ()
#endif #endif
#include "libguile/cpp_sig_symbols.c" #include "libguile/cpp_sig_symbols.c"
#ifndef SCM_MAGIC_SNARFER
#include "libguile/posix.x" #include "libguile/posix.x"
#endif
} }
/* /*

2
libguile/print.c
View file

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

2
libguile/procprop.c
View file

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

2
libguile/procs.c
View file

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

2
libguile/properties.c
View file

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

2
libguile/ramap.c
View file

@ -2060,9 +2060,7 @@ scm_init_ramap ()
init_raprocs (ra_asubrs); init_raprocs (ra_asubrs);
scm_c_define_subr (s_array_equal_p, scm_tc7_rpsubr, scm_array_equal_p); scm_c_define_subr (s_array_equal_p, scm_tc7_rpsubr, scm_array_equal_p);
scm_smobs[SCM_TC2SMOBNUM (scm_tc16_array)].equalp = scm_raequal; scm_smobs[SCM_TC2SMOBNUM (scm_tc16_array)].equalp = scm_raequal;
#ifndef SCM_MAGIC_SNARFER
#include "libguile/ramap.x" #include "libguile/ramap.x"
#endif
scm_add_feature (s_scm_array_for_each); scm_add_feature (s_scm_array_for_each);
} }

2
libguile/random.c
View file

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

2
libguile/rdelim.c
View file

@ -283,9 +283,7 @@ SCM_DEFINE (scm_write_line, "write-line", 1, 1, 0,
SCM SCM
scm_init_rdelim_builtins (void) scm_init_rdelim_builtins (void)
{ {
#ifndef SCM_MAGIC_SNARFER
#include "libguile/rdelim.x" #include "libguile/rdelim.x"
#endif
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }

2
libguile/read.c
View file

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

2
libguile/regex-posix.c
View file

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

2
libguile/root.c
View file

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

2
libguile/rw.c
View file

@ -275,9 +275,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0,
SCM SCM
scm_init_rw_builtins () scm_init_rw_builtins ()
{ {
#ifndef SCM_MAGIC_SNARFER
#include "libguile/rw.x" #include "libguile/rw.x"
#endif
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }

2
libguile/scmsigs.c
View file

@ -618,9 +618,7 @@ scm_init_scmsigs ()
scm_c_define ("ITIMER_PROF", SCM_MAKINUM (ITIMER_PROF)); scm_c_define ("ITIMER_PROF", SCM_MAKINUM (ITIMER_PROF));
#endif /* defined(HAVE_SETITIMER) || defined(HAVE_GETITIMER) */ #endif /* defined(HAVE_SETITIMER) || defined(HAVE_GETITIMER) */
#ifndef SCM_MAGIC_SNARFER
#include "libguile/scmsigs.x" #include "libguile/scmsigs.x"
#endif
} }

2
libguile/script.c
View file

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

2
libguile/simpos.c
View file

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

2
libguile/socket.c
View file

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

2
libguile/sort.c
View file

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

2
libguile/srcprop.c
View file

@ -339,9 +339,7 @@ scm_init_srcprop ()
scm_source_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (2047)); scm_source_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (2047));
scm_c_define ("source-whash", scm_source_whash); scm_c_define ("source-whash", scm_source_whash);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/srcprop.x" #include "libguile/srcprop.x"
#endif
} }
void void

2
libguile/stackchk.c
View file

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

2
libguile/stacks.c
View file

@ -781,9 +781,7 @@ scm_init_stacks ()
scm_cons (stack_layout, scm_cons (stack_layout,
SCM_EOL))); SCM_EOL)));
scm_set_struct_vtable_name_x (scm_stack_type, scm_str2symbol ("stack")); scm_set_struct_vtable_name_x (scm_stack_type, scm_str2symbol ("stack"));
#ifndef SCM_MAGIC_SNARFER
#include "libguile/stacks.x" #include "libguile/stacks.x"
#endif
} }
/* /*

2
libguile/stime.c
View file

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

2
libguile/strings.c
View file

@ -408,9 +408,7 @@ scm_init_strings ()
{ {
scm_nullstr = scm_allocate_string (0); scm_nullstr = scm_allocate_string (0);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/strings.x" #include "libguile/strings.x"
#endif
} }

2
libguile/strop.c
View file

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

2
libguile/strorder.c
View file

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

2
libguile/strports.c
View file

@ -493,9 +493,7 @@ scm_init_strports ()
{ {
scm_tc16_strport = scm_make_stptob (); scm_tc16_strport = scm_make_stptob ();
#ifndef SCM_MAGIC_SNARFER
#include "libguile/strports.x" #include "libguile/strports.x"
#endif
} }

2
libguile/struct.c
View file

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

2
libguile/symbols.c
View file

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

2
libguile/threads.c
View file

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

2
libguile/throw.c
View file

@ -697,9 +697,7 @@ scm_init_throw ()
tc16_lazy_catch = scm_make_smob_type ("lazy-catch", 0); tc16_lazy_catch = scm_make_smob_type ("lazy-catch", 0);
scm_set_smob_print (tc16_lazy_catch, lazy_catch_print); scm_set_smob_print (tc16_lazy_catch, lazy_catch_print);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/throw.x" #include "libguile/throw.x"
#endif
} }
/* /*

2
libguile/unif.c
View file

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

2
libguile/values.c
View file

@ -106,9 +106,7 @@ scm_init_values (void)
scm_add_feature ("values"); scm_add_feature ("values");
#ifndef SCM_MAGIC_SNARFER
#include "libguile/values.x" #include "libguile/values.x"
#endif
} }
/* /*

2
libguile/variable.c
View file

@ -146,9 +146,7 @@ SCM_DEFINE (scm_variable_bound_p, "variable-bound?", 1, 0, 0,
void void
scm_init_variable () scm_init_variable ()
{ {
#ifndef SCM_MAGIC_SNARFER
#include "libguile/variable.x" #include "libguile/variable.x"
#endif
} }
/* /*

2
libguile/vectors.c
View file

@ -339,9 +339,7 @@ scm_init_vectors ()
{ {
scm_nullvect = scm_c_make_vector (0, SCM_UNDEFINED); scm_nullvect = scm_c_make_vector (0, SCM_UNDEFINED);
#ifndef SCM_MAGIC_SNARFER
#include "libguile/vectors.x" #include "libguile/vectors.x"
#endif
} }

2
libguile/version.c
View file

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

2
libguile/vports.c
View file

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

2
libguile/weaks.c
View file

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