Add support for DELETE-FILE from Aleksej.

[debian/pforth] / csrc / pf_io.c

diff --git a/csrc/pf_io.c b/csrc/pf_io.c
index 56388743c0559c1e5c39c6a7d5a5320b87bba72e..dc5a9dc8cb85a1a20461ede5b4ce7b412d27aea7 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
+\r
+FileStream *sdDeleteFile( const char *FileName )\r
+{\r
+       UNIMPLEMENTED("sdDeleteFile");\r
+       TOUCH(FileName);\r
+       return NULL;\r
+}\r
 #endif\r
 \r