core: Add delete_file.
* src/posix.c (delete_file): New function.
This commit is contained in:
parent
35c8408df4
commit
af328a444a
|
@ -392,3 +392,10 @@ dup2_ (SCM old, SCM new) ///((name . "dup2"))
|
|||
dup2 (VALUE (old), VALUE (new));
|
||||
return cell_unspecified;
|
||||
}
|
||||
|
||||
SCM
|
||||
delete_file (SCM file_name)
|
||||
{
|
||||
unlink (string_to_cstring (file_name));
|
||||
return cell_unspecified;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue