summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2002-03-14 03:47:43 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2002-03-14 03:47:43 +0000
commita6b844c224b65f99300aa0f516fadbef50e7c8aa (patch)
tree84a10a7a971cfd43ec730feae64324195e6274d1
parent2287fb53d4760e161ec65b0097219cbab4d0a929 (diff)
downloadguile-a6b844c224b65f99300aa0f516fadbef50e7c8aa.tar.gz
Retire inclusion guard macro SCM_MAGIC_SNARFER.
-rw-r--r--libguile/alist.c2
-rw-r--r--libguile/arbiters.c2
-rw-r--r--libguile/async.c2
-rw-r--r--libguile/backtrace.c2
-rw-r--r--libguile/boolean.c2
-rw-r--r--libguile/chars.c2
-rw-r--r--libguile/continuations.c2
-rw-r--r--libguile/debug-malloc.c2
-rw-r--r--libguile/debug.c2
-rw-r--r--libguile/deprecation.c2
-rw-r--r--libguile/dynl.c2
-rw-r--r--libguile/dynwind.c2
-rw-r--r--libguile/environments.c2
-rw-r--r--libguile/eq.c2
-rw-r--r--libguile/error.c2
-rw-r--r--libguile/eval.c2
-rw-r--r--libguile/evalext.c2
-rw-r--r--libguile/extensions.c2
-rw-r--r--libguile/feature.c2
-rw-r--r--libguile/filesys.c2
-rw-r--r--libguile/fluids.c2
-rw-r--r--libguile/fports.c2
-rw-r--r--libguile/gc.c2
-rw-r--r--libguile/goops.c2
-rw-r--r--libguile/gsubr.c2
-rw-r--r--libguile/guardians.c2
-rw-r--r--libguile/hash.c2
-rw-r--r--libguile/hashtab.c2
-rw-r--r--libguile/hooks.c2
-rw-r--r--libguile/ioext.c2
-rw-r--r--libguile/iselect.c2
-rw-r--r--libguile/keywords.c2
-rw-r--r--libguile/lang.c2
-rw-r--r--libguile/list.c2
-rw-r--r--libguile/load.c2
-rw-r--r--libguile/macros.c2
-rw-r--r--libguile/modules.c2
-rw-r--r--libguile/net_db.c2
-rw-r--r--libguile/numbers.c2
-rw-r--r--libguile/objects.c2
-rw-r--r--libguile/objprop.c2
-rw-r--r--libguile/options.c2
-rw-r--r--libguile/pairs.c2
-rw-r--r--libguile/ports.c2
-rw-r--r--libguile/posix.c2
-rw-r--r--libguile/print.c2
-rw-r--r--libguile/procprop.c2
-rw-r--r--libguile/procs.c2
-rw-r--r--libguile/properties.c2
-rw-r--r--libguile/ramap.c2
-rw-r--r--libguile/random.c2
-rw-r--r--libguile/rdelim.c2
-rw-r--r--libguile/read.c2
-rw-r--r--libguile/regex-posix.c2
-rw-r--r--libguile/root.c2
-rw-r--r--libguile/rw.c2
-rw-r--r--libguile/scmsigs.c2
-rw-r--r--libguile/script.c2
-rw-r--r--libguile/simpos.c2
-rw-r--r--libguile/socket.c2
-rw-r--r--libguile/sort.c2
-rw-r--r--libguile/srcprop.c2
-rw-r--r--libguile/stackchk.c2
-rw-r--r--libguile/stacks.c2
-rw-r--r--libguile/stime.c2
-rw-r--r--libguile/strings.c2
-rw-r--r--libguile/strop.c2
-rw-r--r--libguile/strorder.c2
-rw-r--r--libguile/strports.c2
-rw-r--r--libguile/struct.c2
-rw-r--r--libguile/symbols.c2
-rw-r--r--libguile/threads.c2
-rw-r--r--libguile/throw.c2
-rw-r--r--libguile/unif.c2
-rw-r--r--libguile/values.c2
-rw-r--r--libguile/variable.c2
-rw-r--r--libguile/vectors.c2
-rw-r--r--libguile/version.c2
-rw-r--r--libguile/vports.c2
-rw-r--r--libguile/weaks.c2
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
}