diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-28 11:53:57 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-28 11:53:57 +0100 |
commit | 87fc4596e54d69559ce27868dd1a604ea322a6b1 (patch) | |
tree | 60b9f821b54c492ebd746ae5d99a6363f99c5e1e /libguile/gc.c | |
parent | 35164d84e093ddf9e463fb72cc355c68a4ee92c9 (diff) | |
download | guile-87fc4596e54d69559ce27868dd1a604ea322a6b1.tar.gz |
Remove private-gc.h
* libguile/simpos.c (scm_getenv_int): Move here, from gc.c.
* libguile/private-gc.h: Remove, unused.
* libguile/simpos.h: Move scm_getenv_int declaration here.
* libguile/vm.c:
* libguile/gc.c: Adapt scm_getenv_int users.
* libguile/gc-malloc.c:
* libguile/load.c:
* libguile/script.c: Remove private-gc includes from non-users of
scm_getenv_int.
* libguile/Makefile.am: Adapt.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index 3019a7e92..aebc13f87 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -46,12 +46,12 @@ extern unsigned long * __libc_ia64_register_backing_store_base; #include "libguile/async.h" #include "libguile/ports.h" #include "libguile/root.h" +#include "libguile/simpos.h" #include "libguile/strings.h" #include "libguile/vectors.h" #include "libguile/hashtab.h" #include "libguile/tags.h" -#include "libguile/private-gc.h" #include "libguile/validate.h" #include "libguile/deprecation.h" #include "libguile/gc.h" @@ -568,25 +568,6 @@ scm_gc_unregister_roots (SCM *b, unsigned long n) -/* - MOVE THIS FUNCTION. IT DOES NOT HAVE ANYTHING TODO WITH GC. - */ - -/* Get an integer from an environment variable. */ -int -scm_getenv_int (const char *var, int def) -{ - char *end = 0; - char *val = getenv (var); - long res = def; - if (!val) - return def; - res = strtol (val, &end, 10); - if (end == val) - return def; - return res; -} - void scm_storage_prehistory () { |