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

* files.c (scm_sys_delete_file): Moved to filesys.c.

Browse source 
File is now empty; deleted.
* files.h: Deleted.
* filesys.c: scm_sys_delete_file is now here.  Remove
#if's; they seem to rely on remnants of an old portability
regimen.  If the problems come up again, solve them properly,
using autoconf.  Specifically: Don't test M_SYSV, and #define
remove to be unlink if it's #defined; don't use remove just
because HAVE_STDC_HEADERS is #defined.
* filesys.h: Add declarations for scm_sys_delete_file.
* Makefile.in (libobjs, inner_h_files, c_files, gen_c_files): Omit
files.o, files.h, files.c, and files.x.
* init.c: Don't #include "files.h", and don't call scm_init_files.
This commit is contained in:
Jim Blandy 1996-09-10 19:44:09 +00:00
parent 35440081d7
commit 2f3ed1ba2c
4 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/filesys.c
View file

@ -689,6 +689,24 @@ scm_sys_rename (oldname, newname)
}
SCM_PROC(s_sys_delete_file, "delete-file", 1, 0, 0, scm_sys_delete_file);
#ifdef __STDC__
SCM
scm_sys_delete_file (SCM str)
#else
SCM
scm_sys_delete_file (str)
SCM str;
#endif
{
int ans;
SCM_ASSERT (SCM_NIMP (str) && SCM_STRINGP (str), str, SCM_ARG1, s_sys_delete_file);
SCM_SYSCALL (ans = unlink (SCM_CHARS (str)));
if (ans != 0)
SCM_SYSERROR (s_sys_delete_file);
return SCM_UNSPECIFIED;
}
SCM_PROC (s_sys_mkdir, "mkdir", 1, 1, 0, scm_sys_mkdir);
#ifdef __STDC__