* stream.c (remove_path, rename_path): New functions.

* stream.h (remove_path, rename_path): Declared.

* utf8.c (w_remove, w_rename): New functions.

* utf8.h (w_remove, w_rename): Declared.

* eval.c (eval_init): Registered remove_path and rename_path
as intrinsics.

1 files changed, 2 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 2702a3ab..d526954d 100644
--- a/eval.c
+++ b/eval.c
@@ -2571,7 +2571,8 @@ void eval_init(void)
   reg_fun(intern(lit("open-command"), user_package), func_n2(open_command));
   reg_fun(intern(lit("open-pipe"), user_package), func_n2(open_command));
   reg_fun(intern(lit("open-process"), user_package), func_n3o(open_process, 2));
-
+  reg_fun(intern(lit("remove-path"), user_package), func_n1(remove_path));
+  reg_fun(intern(lit("rename-path"), user_package), func_n2(rename_path));
   reg_var(intern(lit("*user-package*"), user_package), &user_package);
   reg_var(intern(lit("*keyword-package*"), user_package), &keyword_package);
   reg_var(intern(lit("*system-package*"), user_package), &system_package);