Add support for DELETE-FILE from Aleksej.

[pforth] / csrc / pf_io.c

diff --git a/csrc/pf_io.c b/csrc/pf_io.c
index 5638874..dc5a9dc 100644 (file)
--- a/csrc/pf_io.c
+++ b/csrc/pf_io.c
@@ -214,5 +214,12 @@ cell_t sdCloseFile( FileStream * Stream )
        TOUCH(Stream);\r
        return 0; \r
 }\r
        TOUCH(Stream);\r
        return 0; \r
 }\r

+\r
+FileStream *sdDeleteFile( const char *FileName )\r
+{\r
+       UNIMPLEMENTED("sdDeleteFile");\r
+       TOUCH(FileName);\r
+       return NULL;\r
+}\r

 #endif\r
 \r
 #endif\r
 \r