mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Gary Houston 2000-11-07 22:42:35 +00:00
parent 9f9919eb84
commit 34526073e8
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ioext.c
View file

@ -412,6 +412,7 @@ SCM_DEFINE (scm_dup_to_fdes, "dup->fdes", 1, 1, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE (scm_dup2, "dup2", 2, 0, 0, SCM_DEFINE (scm_dup2, "dup2", 2, 0, 0,
(SCM oldfd, SCM newfd), (SCM oldfd, SCM newfd),
"A simple wrapper for the @code{dup2} system call.\n" "A simple wrapper for the @code{dup2} system call.\n"
@ -420,7 +421,7 @@ SCM_DEFINE (scm_dup2, "dup2", 2, 0, 0,
"of @var{newfd}. Both @var{oldfd} and @var{newfd} must\n" "of @var{newfd}. Both @var{oldfd} and @var{newfd} must\n"
"be integers.\n" "be integers.\n"
"Unlike for dup->fdes or primitive-move->fdes, no attempt\n" "Unlike for dup->fdes or primitive-move->fdes, no attempt\n"
"is made to move away ports which are using @var{newfd}\n". "is made to move away ports which are using @var{newfd}.\n"
"The return value is unspecified.") "The return value is unspecified.")
#define FUNC_NAME s_scm_dup2 #define FUNC_NAME s_scm_dup2
{ {