diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2002-03-14 03:47:43 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2002-03-14 03:47:43 +0000 |
commit | a6b844c224b65f99300aa0f516fadbef50e7c8aa (patch) | |
tree | 84a10a7a971cfd43ec730feae64324195e6274d1 | |
parent | 2287fb53d4760e161ec65b0097219cbab4d0a929 (diff) | |
download | guile-a6b844c224b65f99300aa0f516fadbef50e7c8aa.tar.gz |
Retire inclusion guard macro SCM_MAGIC_SNARFER.
80 files changed, 0 insertions, 160 deletions
diff --git a/libguile/alist.c b/libguile/alist.c index 07bd64356..3ffed4e63 100644 --- a/libguile/alist.c +++ b/libguile/alist.c @@ -395,9 +395,7 @@ SCM_DEFINE (scm_assoc_remove_x, "assoc-remove!", 2, 0, 0, void scm_init_alist () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/alist.x" -#endif } diff --git a/libguile/arbiters.c b/libguile/arbiters.c index a6d17ca80..103b71581 100644 --- a/libguile/arbiters.c +++ b/libguile/arbiters.c @@ -129,9 +129,7 @@ scm_init_arbiters () scm_tc16_arbiter = scm_make_smob_type ("arbiter", 0); scm_set_smob_mark (scm_tc16_arbiter, scm_markcdr); scm_set_smob_print (scm_tc16_arbiter, arbiter_print); -#ifndef SCM_MAGIC_SNARFER #include "libguile/arbiters.x" -#endif } /* diff --git a/libguile/async.c b/libguile/async.c index e3b7d33f3..118a0d0e6 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -462,9 +462,7 @@ scm_init_async () tc16_async = scm_make_smob_type ("async", 0); scm_set_smob_mark (tc16_async, async_mark); -#ifndef SCM_MAGIC_SNARFER #include "libguile/async.x" -#endif } /* diff --git a/libguile/backtrace.c b/libguile/backtrace.c index feed5a12f..01ef26bbf 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -773,9 +773,7 @@ scm_init_backtrace () SCM f = scm_make_fluid (); scm_the_last_stack_fluid_var = scm_c_define ("the-last-stack", f); -#ifndef SCM_MAGIC_SNARFER #include "libguile/backtrace.x" -#endif } /* diff --git a/libguile/boolean.c b/libguile/boolean.c index 402fce55d..a3e37fc4e 100644 --- a/libguile/boolean.c +++ b/libguile/boolean.c @@ -74,9 +74,7 @@ SCM_DEFINE (scm_boolean_p, "boolean?", 1, 0, 0, void scm_init_boolean () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/boolean.x" -#endif } diff --git a/libguile/chars.c b/libguile/chars.c index 469514715..cbc2cb5e8 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -404,9 +404,7 @@ int scm_n_charnames = sizeof (scm_charnames) / sizeof (char *); void scm_init_chars () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/chars.x" -#endif } diff --git a/libguile/continuations.c b/libguile/continuations.c index efc96de28..0cf76a32a 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -312,9 +312,7 @@ scm_init_continuations () scm_set_smob_free (scm_tc16_continuation, continuation_free); scm_set_smob_print (scm_tc16_continuation, continuation_print); scm_set_smob_apply (scm_tc16_continuation, continuation_apply, 0, 0, 1); -#ifndef SCM_MAGIC_SNARFER #include "libguile/continuations.x" -#endif } /* diff --git a/libguile/debug-malloc.c b/libguile/debug-malloc.c index e85423dd1..ae524e7d9 100644 --- a/libguile/debug-malloc.c +++ b/libguile/debug-malloc.c @@ -261,8 +261,6 @@ scm_debug_malloc_prehistory () void scm_init_debug_malloc () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/debug-malloc.x" -#endif } diff --git a/libguile/debug.c b/libguile/debug.c index 11f34cd2c..c4078f5a4 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -594,9 +594,7 @@ scm_init_debug () #endif scm_add_feature ("debug-extensions"); -#ifndef SCM_MAGIC_SNARFER #include "libguile/debug.x" -#endif } /* diff --git a/libguile/deprecation.c b/libguile/deprecation.c index 55a82aa4f..fa22e49a2 100644 --- a/libguile/deprecation.c +++ b/libguile/deprecation.c @@ -185,9 +185,7 @@ scm_init_deprecation () atexit (print_deprecation_summary); } #endif -#ifndef SCM_MAGIC_SNARFER #include "libguile/deprecation.x" -#endif } /* diff --git a/libguile/dynl.c b/libguile/dynl.c index c3861cf71..1f8c3ca70 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -413,9 +413,7 @@ scm_init_dynamic_linking () scm_set_smob_mark (scm_tc16_dynamic_obj, dynl_obj_mark); scm_set_smob_print (scm_tc16_dynamic_obj, dynl_obj_print); sysdep_dynl_init (); -#ifndef SCM_MAGIC_SNARFER #include "libguile/dynl.x" -#endif } /* diff --git a/libguile/dynwind.c b/libguile/dynwind.c index 5970dc455..7f3566ffd 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -282,9 +282,7 @@ scm_init_dynwind () { tc16_guards = scm_make_smob_type ("guards", 0); scm_set_smob_print (tc16_guards, guards_print); -#ifndef SCM_MAGIC_SNARFER #include "libguile/dynwind.x" -#endif } /* diff --git a/libguile/environments.c b/libguile/environments.c index 10ce8c8ca..f083b9399 100644 --- a/libguile/environments.c +++ b/libguile/environments.c @@ -2348,9 +2348,7 @@ scm_environments_prehistory () void scm_init_environments () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/environments.x" -#endif } diff --git a/libguile/eq.c b/libguile/eq.c index 515d786b1..b159f2433 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -202,9 +202,7 @@ SCM_DEFINE1 (scm_equal_p, "equal?", scm_tc7_rpsubr, void scm_init_eq () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/eq.x" -#endif } diff --git a/libguile/error.c b/libguile/error.c index e17231f88..9308205a6 100644 --- a/libguile/error.c +++ b/libguile/error.c @@ -306,9 +306,7 @@ void scm_init_error () { #include "libguile/cpp_err_symbols.c" -#ifndef SCM_MAGIC_SNARFER #include "libguile/error.x" -#endif } diff --git a/libguile/eval.c b/libguile/eval.c index a99358d2b..a682a5535 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -4285,9 +4285,7 @@ scm_init_eval () /* acros */ /* end of acros */ -#ifndef SCM_MAGIC_SNARFER #include "libguile/eval.x" -#endif scm_add_feature ("delay"); } diff --git a/libguile/evalext.c b/libguile/evalext.c index e7c95aec1..4b64eaa0f 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -147,9 +147,7 @@ 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 } /* diff --git a/libguile/extensions.c b/libguile/extensions.c index 83bcee2a1..7fd311cce 100644 --- a/libguile/extensions.c +++ b/libguile/extensions.c @@ -163,9 +163,7 @@ void scm_init_extensions () { registered_extensions = NULL; -#ifndef SCM_MAGIC_SNARFER #include "libguile/extensions.x" -#endif } /* diff --git a/libguile/feature.c b/libguile/feature.c index 5748fd30b..8e71676c2 100644 --- a/libguile/feature.c +++ b/libguile/feature.c @@ -126,9 +126,7 @@ scm_init_feature() scm_c_define ("char-code-limit", SCM_MAKINUM (SCM_CHAR_CODE_LIMIT)); -#ifndef SCM_MAGIC_SNARFER #include "libguile/feature.x" -#endif } /* diff --git a/libguile/filesys.c b/libguile/filesys.c index 15593b4e8..15ea034f6 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -1621,9 +1621,7 @@ scm_init_filesys () scm_c_define ("FD_CLOEXEC", scm_long2num (FD_CLOEXEC)); #endif -#ifndef SCM_MAGIC_SNARFER #include "libguile/filesys.x" -#endif } /* diff --git a/libguile/fluids.c b/libguile/fluids.c index 7901e2231..267918249 100644 --- a/libguile/fluids.c +++ b/libguile/fluids.c @@ -262,9 +262,7 @@ scm_init_fluids () { scm_tc16_fluid = scm_make_smob_type ("fluid", 0); scm_set_smob_print (scm_tc16_fluid, fluid_print); -#ifndef SCM_MAGIC_SNARFER #include "libguile/fluids.x" -#endif } /* diff --git a/libguile/fports.c b/libguile/fports.c index 55f4782a3..7ee538eb5 100644 --- a/libguile/fports.c +++ b/libguile/fports.c @@ -867,9 +867,7 @@ scm_init_fports () scm_c_define ("_IOLBF", SCM_MAKINUM (_IOLBF)); scm_c_define ("_IONBF", SCM_MAKINUM (_IONBF)); -#ifndef SCM_MAGIC_SNARFER #include "libguile/fports.x" -#endif } /* diff --git a/libguile/gc.c b/libguile/gc.c index a96e9df9c..fd7a0562e 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -2866,9 +2866,7 @@ 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 } #endif /*MARK_DEPENDENCIES*/ diff --git a/libguile/goops.c b/libguile/goops.c index fde237149..560421e58 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -2674,9 +2674,7 @@ scm_init_goops_builtins (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_list_1 (sym_no_method)); diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 03d16809d..b8b15462f 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -288,9 +288,7 @@ scm_init_gsubr() scm_c_define_gsubr ("gsubr-2-1-l", 2, 1, 1, gsubr_21l); /* example */ #endif -#ifndef SCM_MAGIC_SNARFER #include "libguile/gsubr.x" -#endif } /* diff --git a/libguile/guardians.c b/libguile/guardians.c index 88a6a4593..b69d0f5e9 100644 --- a/libguile/guardians.c +++ b/libguile/guardians.c @@ -630,9 +630,7 @@ scm_init_guardians () greedily_guarded_whash = scm_permanent_object (scm_make_doubly_weak_hash_table (SCM_MAKINUM (31))); -#ifndef SCM_MAGIC_SNARFER #include "libguile/guardians.x" -#endif } /* diff --git a/libguile/hash.c b/libguile/hash.c index 3b8fcbc33..f3fba4e3b 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -271,9 +271,7 @@ SCM_DEFINE (scm_hash, "hash", 2, 0, 0, void scm_init_hash () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/hash.x" -#endif } diff --git a/libguile/hashtab.c b/libguile/hashtab.c index a6e2908a2..5cf8c7e6b 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -562,9 +562,7 @@ 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 } /* diff --git a/libguile/hooks.c b/libguile/hooks.c index 02bd96d56..bada6164e 100644 --- a/libguile/hooks.c +++ b/libguile/hooks.c @@ -322,9 +322,7 @@ scm_init_hooks () scm_tc16_hook = scm_make_smob_type ("hook", 0); scm_set_smob_mark (scm_tc16_hook, scm_markcdr); scm_set_smob_print (scm_tc16_hook, hook_print); -#ifndef SCM_MAGIC_SNARFER #include "libguile/hooks.x" -#endif } /* diff --git a/libguile/ioext.c b/libguile/ioext.c index 6d57cd3ee..124332366 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -318,9 +318,7 @@ scm_init_ioext () { scm_add_feature ("i/o-extensions"); -#ifndef SCM_MAGIC_SNARFER #include "libguile/ioext.x" -#endif } diff --git a/libguile/iselect.c b/libguile/iselect.c index 215258001..59d2b795a 100644 --- a/libguile/iselect.c +++ b/libguile/iselect.c @@ -620,9 +620,7 @@ 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 */ diff --git a/libguile/keywords.c b/libguile/keywords.c index 05a50676f..5b10100de 100644 --- a/libguile/keywords.c +++ b/libguile/keywords.c @@ -138,9 +138,7 @@ scm_init_keywords () scm_set_smob_print (scm_tc16_keyword, keyword_print); scm_keyword_obarray = scm_c_make_hash_table (256); -#ifndef SCM_MAGIC_SNARFER #include "libguile/keywords.x" -#endif } diff --git a/libguile/lang.c b/libguile/lang.c index 463cbeb5c..4fbcbf47f 100644 --- a/libguile/lang.c +++ b/libguile/lang.c @@ -155,9 +155,7 @@ void scm_init_lang () { #if 0 -#ifndef SCM_MAGIC_SNARFER #include "libguile/lang.x" -#endif scm_make_synt ("nil-while", scm_makacro, scm_m_while); #endif diff --git a/libguile/list.c b/libguile/list.c index 7b0161cdf..fd815c7a6 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -835,9 +835,7 @@ SCM_DEFINE (scm_delete1_x, "delete1!", 2, 0, 0, void scm_init_list () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/list.x" -#endif } /* diff --git a/libguile/load.c b/libguile/load.c index 83b85fef6..f3511231f 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -503,9 +503,7 @@ scm_init_load () init_build_info (); -#ifndef SCM_MAGIC_SNARFER #include "libguile/load.x" -#endif } /* diff --git a/libguile/macros.c b/libguile/macros.c index aac969fdb..d53e94931 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -230,9 +230,7 @@ scm_init_macros () scm_tc16_macro = scm_make_smob_type ("macro", 0); scm_set_smob_mark (scm_tc16_macro, scm_markcdr); scm_set_smob_print (scm_tc16_macro, macro_print); -#ifndef SCM_MAGIC_SNARFER #include "libguile/macros.x" -#endif } /* diff --git a/libguile/modules.c b/libguile/modules.c index 25776a026..9c6d72621 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -610,9 +610,7 @@ scm_modules_prehistory () void scm_init_modules () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/modules.x" -#endif module_make_local_var_x_var = scm_c_define ("module-make-local-var!", SCM_UNDEFINED); scm_tc16_eval_closure = scm_make_smob_type ("eval-closure", 0); diff --git a/libguile/net_db.c b/libguile/net_db.c index fd00a0497..ecb075c8b 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -446,9 +446,7 @@ void scm_init_net_db () { scm_add_feature ("net-db"); -#ifndef SCM_MAGIC_SNARFER #include "libguile/net_db.x" -#endif } /* diff --git a/libguile/numbers.c b/libguile/numbers.c index baecf0210..c7eb1f16e 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -4616,9 +4616,7 @@ scm_init_numbers () check_sanity (); #endif -#ifndef SCM_MAGIC_SNARFER #include "libguile/numbers.x" -#endif } /* diff --git a/libguile/objects.c b/libguile/objects.c index aca2e55d0..22fa968cb 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -518,9 +518,7 @@ scm_init_objects () SCM_SET_CLASS_DESTRUCTOR (et, scm_struct_free_entity); scm_c_define ("<entity>", et); -#ifndef SCM_MAGIC_SNARFER #include "libguile/objects.x" -#endif } /* diff --git a/libguile/objprop.c b/libguile/objprop.c index aa3883165..246adcb73 100644 --- a/libguile/objprop.c +++ b/libguile/objprop.c @@ -114,9 +114,7 @@ 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 } diff --git a/libguile/options.c b/libguile/options.c index 731e62f79..75103e639 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -294,9 +294,7 @@ scm_init_options () { scm_gc_register_root (&protected_objects); -#ifndef SCM_MAGIC_SNARFER #include "libguile/options.x" -#endif } /* diff --git a/libguile/pairs.c b/libguile/pairs.c index bc4831480..0b66ee5ca 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -175,9 +175,7 @@ scm_init_pairs () for (subnr = 0; cxrs [subnr]; subnr++) scm_c_define_subr (cxrs [subnr], scm_tc7_cxr, NULL); -#ifndef SCM_MAGIC_SNARFER #include "libguile/pairs.x" -#endif } diff --git a/libguile/ports.c b/libguile/ports.c index 4acf1fdd6..1720cae01 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -1569,9 +1569,7 @@ 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 } /* diff --git a/libguile/posix.c b/libguile/posix.c index 6e3caa587..ab84e5cef 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1730,9 +1730,7 @@ scm_init_posix () #endif #include "libguile/cpp_sig_symbols.c" -#ifndef SCM_MAGIC_SNARFER #include "libguile/posix.x" -#endif } /* diff --git a/libguile/print.c b/libguile/print.c index d972c3d4e..cb80e073e 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1122,9 +1122,7 @@ scm_init_print () scm_set_smob_mark (scm_tc16_port_with_ps, scm_markcdr); scm_set_smob_print (scm_tc16_port_with_ps, port_with_ps_print); -#ifndef SCM_MAGIC_SNARFER #include "libguile/print.x" -#endif } /* diff --git a/libguile/procprop.c b/libguile/procprop.c index e6136527d..099691ca4 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -246,9 +246,7 @@ 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 } diff --git a/libguile/procs.c b/libguile/procs.c index dae2e104e..690f88a14 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -381,9 +381,7 @@ scm_init_subr_table () void scm_init_procs () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/procs.x" -#endif } /* diff --git a/libguile/properties.c b/libguile/properties.c index 2b829fcad..c70df6560 100644 --- a/libguile/properties.c +++ b/libguile/properties.c @@ -148,9 +148,7 @@ 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 } diff --git a/libguile/ramap.c b/libguile/ramap.c index 9cc642f0b..e2389451f 100644 --- a/libguile/ramap.c +++ b/libguile/ramap.c @@ -2060,9 +2060,7 @@ scm_init_ramap () init_raprocs (ra_asubrs); 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; -#ifndef SCM_MAGIC_SNARFER #include "libguile/ramap.x" -#endif scm_add_feature (s_scm_array_for_each); } diff --git a/libguile/random.c b/libguile/random.c index 2db583bb1..319d2a0c6 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -590,9 +590,7 @@ 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 diff --git a/libguile/rdelim.c b/libguile/rdelim.c index caa4eac47..b0e34e4f4 100644 --- a/libguile/rdelim.c +++ b/libguile/rdelim.c @@ -283,9 +283,7 @@ SCM_DEFINE (scm_write_line, "write-line", 1, 1, 0, SCM scm_init_rdelim_builtins (void) { -#ifndef SCM_MAGIC_SNARFER #include "libguile/rdelim.x" -#endif return SCM_UNSPECIFIED; } diff --git a/libguile/read.c b/libguile/read.c index 33a7e37f0..5ac971977 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -846,9 +846,7 @@ scm_init_read () SCM_VARIABLE_LOC (scm_c_define ("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 } /* diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index 3eef85454..eb28ebe4b 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -308,9 +308,7 @@ scm_init_regex_posix () scm_c_define ("regexp/notbol", scm_long2num (REG_NOTBOL)); scm_c_define ("regexp/noteol", scm_long2num (REG_NOTEOL)); -#ifndef SCM_MAGIC_SNARFER #include "libguile/regex-posix.x" -#endif scm_add_feature ("regex"); } diff --git a/libguile/root.c b/libguile/root.c index 389c2247b..f26843ea3 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -385,9 +385,7 @@ scm_init_root () scm_set_smob_mark (scm_tc16_root, root_mark); scm_set_smob_print (scm_tc16_root, root_print); -#ifndef SCM_MAGIC_SNARFER #include "libguile/root.x" -#endif } /* diff --git a/libguile/rw.c b/libguile/rw.c index e8e83c806..39a0617f5 100644 --- a/libguile/rw.c +++ b/libguile/rw.c @@ -275,9 +275,7 @@ SCM_DEFINE (scm_write_string_partial, "write-string/partial", 1, 3, 0, SCM scm_init_rw_builtins () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/rw.x" -#endif return SCM_UNSPECIFIED; } diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index da1f93bfe..cdb44e049 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -618,9 +618,7 @@ scm_init_scmsigs () scm_c_define ("ITIMER_PROF", SCM_MAKINUM (ITIMER_PROF)); #endif /* defined(HAVE_SETITIMER) || defined(HAVE_GETITIMER) */ -#ifndef SCM_MAGIC_SNARFER #include "libguile/scmsigs.x" -#endif } diff --git a/libguile/script.c b/libguile/script.c index b782dbce7..58d48fab4 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -699,9 +699,7 @@ scm_shell (int argc, char **argv) void scm_init_script () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/script.x" -#endif } /* diff --git a/libguile/simpos.c b/libguile/simpos.c index 30b95eb8a..5dc7fff13 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -132,9 +132,7 @@ SCM_DEFINE (scm_primitive_exit, "primitive-exit", 0, 1, 0, void scm_init_simpos () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/simpos.x" -#endif } diff --git a/libguile/socket.c b/libguile/socket.c index 10c064242..804172e5e 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -1396,9 +1396,7 @@ scm_init_socket () scm_add_feature ("socket"); -#ifndef SCM_MAGIC_SNARFER #include "libguile/socket.x" -#endif } diff --git a/libguile/sort.c b/libguile/sort.c index 7a3b61ab8..ac0eaf5a2 100644 --- a/libguile/sort.c +++ b/libguile/sort.c @@ -956,9 +956,7 @@ 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"); } diff --git a/libguile/srcprop.c b/libguile/srcprop.c index e909991a5..bc8a582ab 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -339,9 +339,7 @@ scm_init_srcprop () scm_source_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (2047)); scm_c_define ("source-whash", scm_source_whash); -#ifndef SCM_MAGIC_SNARFER #include "libguile/srcprop.x" -#endif } void diff --git a/libguile/stackchk.c b/libguile/stackchk.c index da3ebe7f9..6d3107836 100644 --- a/libguile/stackchk.c +++ b/libguile/stackchk.c @@ -101,9 +101,7 @@ scm_stack_report () void scm_init_stackchk () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/stackchk.x" -#endif } /* diff --git a/libguile/stacks.c b/libguile/stacks.c index 508b2e28d..a2a397985 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -781,9 +781,7 @@ scm_init_stacks () scm_cons (stack_layout, SCM_EOL))); scm_set_struct_vtable_name_x (scm_stack_type, scm_str2symbol ("stack")); -#ifndef SCM_MAGIC_SNARFER #include "libguile/stacks.x" -#endif } /* diff --git a/libguile/stime.c b/libguile/stime.c index 09a22f64c..6b04e7e88 100644 --- a/libguile/stime.c +++ b/libguile/stime.c @@ -717,9 +717,7 @@ 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 } diff --git a/libguile/strings.c b/libguile/strings.c index d8580b7eb..8cd9815a5 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -408,9 +408,7 @@ scm_init_strings () { scm_nullstr = scm_allocate_string (0); -#ifndef SCM_MAGIC_SNARFER #include "libguile/strings.x" -#endif } diff --git a/libguile/strop.c b/libguile/strop.c index d0696add5..bf2ede036 100644 --- a/libguile/strop.c +++ b/libguile/strop.c @@ -530,9 +530,7 @@ 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 } /* diff --git a/libguile/strorder.c b/libguile/strorder.c index 8c7737abf..faebcf039 100644 --- a/libguile/strorder.c +++ b/libguile/strorder.c @@ -292,9 +292,7 @@ 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 } diff --git a/libguile/strports.c b/libguile/strports.c index 0a75a4068..0d00047fc 100644 --- a/libguile/strports.c +++ b/libguile/strports.c @@ -493,9 +493,7 @@ scm_init_strports () { scm_tc16_strport = scm_make_stptob (); -#ifndef SCM_MAGIC_SNARFER #include "libguile/strports.x" -#endif } diff --git a/libguile/struct.c b/libguile/struct.c index 075388e42..c92beabb9 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -820,9 +820,7 @@ scm_init_struct () scm_c_define ("vtable-index-printer", SCM_MAKINUM (scm_vtable_index_printer)); scm_c_define ("vtable-offset-user", SCM_MAKINUM (scm_vtable_offset_user)); -#ifndef SCM_MAGIC_SNARFER #include "libguile/struct.x" -#endif } /* diff --git a/libguile/symbols.c b/libguile/symbols.c index 57ead5cab..780575228 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -417,9 +417,7 @@ void scm_init_symbols () { gensym_counter = 0; -#ifndef SCM_MAGIC_SNARFER #include "libguile/symbols.x" -#endif } /* diff --git a/libguile/threads.c b/libguile/threads.c index c8a09941d..9c984f4e7 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -141,9 +141,7 @@ 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); } diff --git a/libguile/throw.c b/libguile/throw.c index 91f07f61a..68c18726e 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -697,9 +697,7 @@ scm_init_throw () tc16_lazy_catch = scm_make_smob_type ("lazy-catch", 0); scm_set_smob_print (tc16_lazy_catch, lazy_catch_print); -#ifndef SCM_MAGIC_SNARFER #include "libguile/throw.x" -#endif } /* diff --git a/libguile/unif.c b/libguile/unif.c index b900df50e..ce0cf2706 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2605,9 +2605,7 @@ scm_init_unif () scm_set_smob_print (scm_tc16_array, scm_raprin1); scm_set_smob_equalp (scm_tc16_array, scm_array_equal_p); scm_add_feature ("array"); -#ifndef SCM_MAGIC_SNARFER #include "libguile/unif.x" -#endif } /* diff --git a/libguile/values.c b/libguile/values.c index a11b0041d..b8b1c8c84 100644 --- a/libguile/values.c +++ b/libguile/values.c @@ -106,9 +106,7 @@ scm_init_values (void) scm_add_feature ("values"); -#ifndef SCM_MAGIC_SNARFER #include "libguile/values.x" -#endif } /* diff --git a/libguile/variable.c b/libguile/variable.c index b2710c113..0369a2834 100644 --- a/libguile/variable.c +++ b/libguile/variable.c @@ -146,9 +146,7 @@ SCM_DEFINE (scm_variable_bound_p, "variable-bound?", 1, 0, 0, void scm_init_variable () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/variable.x" -#endif } /* diff --git a/libguile/vectors.c b/libguile/vectors.c index bdc943760..7a6e64a17 100644 --- a/libguile/vectors.c +++ b/libguile/vectors.c @@ -339,9 +339,7 @@ scm_init_vectors () { scm_nullvect = scm_c_make_vector (0, SCM_UNDEFINED); -#ifndef SCM_MAGIC_SNARFER #include "libguile/vectors.x" -#endif } diff --git a/libguile/version.c b/libguile/version.c index 1a5773d31..b3126545f 100644 --- a/libguile/version.c +++ b/libguile/version.c @@ -129,9 +129,7 @@ SCM_DEFINE (scm_version, "version", 0, 0, 0, void scm_init_version () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/version.x" -#endif } /* diff --git a/libguile/vports.c b/libguile/vports.c index 2cf94feae..69855331e 100644 --- a/libguile/vports.c +++ b/libguile/vports.c @@ -219,9 +219,7 @@ scm_init_vports () { scm_tc16_sfport = scm_make_sfptob (); -#ifndef SCM_MAGIC_SNARFER #include "libguile/vports.x" -#endif } /* diff --git a/libguile/weaks.c b/libguile/weaks.c index a5b194eca..535b4482e 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -364,9 +364,7 @@ scm_weaks_prehistory () void scm_init_weaks () { -#ifndef SCM_MAGIC_SNARFER #include "libguile/weaks.x" -#endif } |