summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-28 11:53:57 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-28 11:53:57 +0100
commit87fc4596e54d69559ce27868dd1a604ea322a6b1 (patch)
tree60b9f821b54c492ebd746ae5d99a6363f99c5e1e /libguile/gc.c
parent35164d84e093ddf9e463fb72cc355c68a4ee92c9 (diff)
downloadguile-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.c21
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 ()
{