From af328a444a14d35a83befc9822ea96c7c41a5d05 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 11 Nov 2018 11:03:03 +0100
Subject: [PATCH] core: Add delete_file.

* src/posix.c (delete_file): New function.
---
 src/posix.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/posix.c b/src/posix.c
index 048221e0..6d9a40c0 100644
--- a/src/posix.c
+++ b/src/posix.c
@@ -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;
+}