diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-11-23 23:37:29 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-23 23:37:29 +0100 |
commit | 712ca51ffe731d5b0e4dacb4d343426092df2eb0 (patch) | |
tree | 2ed7bade6981b13db1461d84d58505d33ba17b3e /libguile/posix.c | |
parent | 06906f370f77cbab520ff0d3c47449526934a9c8 (diff) | |
download | guile-712ca51ffe731d5b0e4dacb4d343426092df2eb0.tar.gz |
Remove reference to `scm_init_popen' when `fork' is unavailable.
Fixes <http://bugs.gnu.org/12477>.
Reported by lin ray <lin.wei.ray@gmail.com>.
* configure.ac: Define the `HAVE_FORK' Automake conditional.
* module/Makefile.am (ICE_9_SOURCES): Add `ice-9/popen.scm' only when
HAVE_FORK.
* libguile/posix.c (scm_init_posix): Register `scm_init_popen' only when
HAVE_FORK.
Diffstat (limited to 'libguile/posix.c')
-rw-r--r-- | libguile/posix.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/libguile/posix.c b/libguile/posix.c index 4f8b8ac7a..ce64256db 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. - * +/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, + * 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License * as published by the Free Software Foundation; either version 3 of @@ -2375,10 +2376,12 @@ scm_init_posix () #include "libguile/cpp-SIG.c" #include "libguile/posix.x" +#ifdef HAVE_FORK scm_c_register_extension ("libguile-" SCM_EFFECTIVE_VERSION, "scm_init_popen", (scm_t_extension_init_func) scm_init_popen, NULL); +#endif /* HAVE_FORK */ } /* |