core: Add delete_file.

* src/posix.c (delete_file): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-11-11 11:03:03 +01:00
parent 4568b8434b
commit 280b763ae8
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 7 additions and 0 deletions

View File

@ -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;
}