summaryrefslogtreecommitdiff
path: root/libguile/filesys.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-09-10 19:44:09 +0000
committerJim Blandy <jimb@red-bean.com>1996-09-10 19:44:09 +0000
commit2f3ed1ba2c38db1e6f3350392a7ad7ec7831dd20 (patch)
treee264772235dced42383ddb39bedfebfe30060095 /libguile/filesys.c
parent35440081d79af395229b7e5f0363330c8e67add0 (diff)
downloadguile-2f3ed1ba2c38db1e6f3350392a7ad7ec7831dd20.tar.gz
* files.c (scm_sys_delete_file): Moved to filesys.c.
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.
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r--libguile/filesys.c18
1 files changed, 18 insertions, 0 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c
index c3184d912..ec60d0089 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -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__