mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* * posix.c (scm_tmpnam): New function.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-11-02 20:53:53 +00:00
parent 19a18b54db
commit 9ee5fce45d
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/posix.c
View file

@ -848,6 +848,17 @@ scm_environ (env)
}
}
#ifdef L_tmpnam
SCM_PROC (s_tmpnam, "tmpnam", 0, 0, 0, scm_tmpnam);
SCM scm_tmpnam()
{
char name[L_tmpnam];
SCM_SYSCALL (tmpnam (name););
return scm_makfrom0str (name);
}
#endif
SCM_PROC (s_open_pipe, "open-pipe", 2, 0, 0, scm_open_pipe);