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));
|
dup2 (VALUE (old), VALUE (new));
|
||||||
return cell_unspecified;
|
return cell_unspecified;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
SCM
|
||||||
|
delete_file (SCM file_name)
|
||||||
|
{
|
||||||
|
unlink (string_to_cstring (file_name));
|
||||||
|
return cell_unspecified;
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in New Issue