From 9e9513462ff0f82854dbc9d3f8bd42cd2ed8766e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 15 Apr 2020 11:40:23 -0700
Subject: New function: touch.

* lisplib.c (copy_file_set_entries): Register autoload for
touch.

* share/txr/stdlib/copy-file.tl (touch): New function.

* txr.1: Documented.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index d97ad63d..af0029fb 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -815,7 +815,7 @@ static val copy_file_set_entries(val dlt, val fun)
   val name[] = {
     lit("copy-path-opts"), lit("copy-file"), lit("copy-files"),
     lit("copy-path-rec"), lit("remove-path-rec"),
-    lit("chown-rec"), lit("chmod-rec"),
+    lit("chown-rec"), lit("chmod-rec"), lit("touch"),
     nil
   };
   set_dlt_entries(dlt, name, fun);
-- 
cgit v1.2.3