From f4623b771b1e798d81d1cc8d2013683371061c43 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 26 Nov 2014 17:20:30 +0000
Subject: Replace DELETE-FILE with removeFile.

---
 src/interp/fortcall.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/fortcall.boot')

diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot
index a906d3b8..f45a82c3 100644
--- a/src/interp/fortcall.boot
+++ b/src/interp/fortcall.boot
@@ -720,9 +720,9 @@ protectedNagCall(objFiles,nfile,data,results) ==
 
 
 cleanUpAfterNagman(f1,f2,listf)==
-  PROBE_-FILE(f1) and DELETE_-FILE(f1)
-  PROBE_-FILE(f2) and DELETE_-FILE(f2)
-  for fn in listf repeat PROBE_-FILE(fn) and DELETE_-FILE(fn)
+  removeFile f1
+  removeFile f2
+  for fn in listf repeat removeFile fn
 
 sendNagmanErrorSignal()==
 -- excite nagman's signal handler!
-- 
cgit v1.2.3