Rename copy_file/2 to file_copy/2

src/lib/files.pl

@@ -71,7 +71,7 @@ In this library, directories and files are represented as
                   directory_exists/1,
                   delete_file/1,
 		  rename_file/2,
-		  copy_file/2,
+		  file_copy/2,
 		  delete_directory/1,
                   make_directory/1,
                   make_directory_path/1,
@@ -151,10 +151,13 @@ rename_file(File, Renamed) :-
         must_be(chars, Renamed),
         '$rename_file'(File, Renamed).
 
-copy_file(File, Copied) :-
-	file_must_exist(File, copy_file/2),
+%% file_copy(+File, +Copied).
+%
+% Succeeds if File is copied to Copied
+file_copy(File, Copied) :-
+	file_must_exist(File, file_copy/2),
 	must_be(chars, Copied),
-	'$copy_file'(File, Copied).
+	'$file_copy'(File, Copied).
 
 %% delete_directory(+Directory).
 %

src/machine/dispatch.rs

@@ -3533,12 +3533,12 @@ impl Machine {
                     self.rename_file();
                     step_or_fail!(self, self.machine_st.p = self.machine_st.cp);
                 }
-		&Instruction::CallCopyFile(_) => {
-		    self.copy_file();
+		&Instruction::CallFileCopy(_) => {
+		    self.file_copy();
 		    step_or_fail!(self, self.machine_st.p += 1);
 		}
-		&Instruction::ExecuteCopyFile(_) => {
-		    self.copy_file();
+		&Instruction::ExecuteFileCopy(_) => {
+		    self.file_copy();
 		    step_or_fail!(self, self.machine_st.p = self.machine_st.cp);
 		}
                 &Instruction::CallWorkingDirectory(_) => {

src/machine/system_calls.rs

@@ -1654,7 +1654,7 @@ impl Machine {
     }
 
     #[inline(always)]
-    pub(crate) fn copy_file(&mut self) {
+    pub(crate) fn file_copy(&mut self) {
 	if let Some(file) = self.machine_st.value_to_str_like(self.machine_st.registers[1]) {
 	    if let Some(copied) = self.machine_st.value_to_str_like(self.machine_st.registers[2]) {
 		if fs::copy(file.as_str(), copied.as_str()).is_ok() {