From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 14 May 2021 20:41:25 +0000 (+0100)
Subject: dump-runlisp-image.c: Delete traces of decoy `-d' (`--cleanup') option.
X-Git-Url: https://git.distorted.org.uk/~mdw/runlisp/commitdiff_plain/60db9fabc6aca55ad76fc8aae5b01e61eac38715

dump-runlisp-image.c: Delete traces of decoy `-d' (`--cleanup') option.

This morphed into the `-R' and `-U' options before ever being
implemented.
---

diff --git a/dump-runlisp-image.c b/dump-runlisp-image.c
index 97f854d..3f9131e 100644
--- a/dump-runlisp-image.c
+++ b/dump-runlisp-image.c
@@ -1318,7 +1318,7 @@ static void version(FILE *fp)
 static void usage(FILE *fp)
 {
   fprintf(fp, "\
-usage: %s [-RUadfinqrv] [+RUdfinr] [-c CONF] [-o [SECT:]VAR=VAL]\n\
+usage: %s [-RUafinqrv] [+RUfinr] [-c CONF] [-o [SECT:]VAR=VAL]\n\
 	[-O FILE|DIR] [-j NJOBS] [LISP ...]\n",
 	  progname);
 }
@@ -1345,7 +1345,6 @@ Image dumping:\n\
   -R, --remove-other		Delete image files for other Lisp systems.\n\
   -U, --remove-unknown		Delete unrecognized files in image dir.\n\
   -a, --all-configured		Select all configured implementations.\n\
-  -d, --cleanup			Delete images which are no longer wanted.\n\
   -f, --force			Dump images even if they already exist.\n\
   -i, --check-installed		Check Lisp systems exist before dumping.\n\
   -j, --jobs=NJOBS		Run up to NJOBS jobs in parallel.\n\
@@ -1422,7 +1421,7 @@ int main(int argc, char *argv[])
     break
 
   for (;;) {
-    i = mdwopt(argc - 1, argv + 1, "hVO:R+U+ac:d+f+i+j:n+o:qr+v", opts, 0, 0,
+    i = mdwopt(argc - 1, argv + 1, "hVO:R+U+ac:f+i+j:n+o:qr+v", opts, 0, 0,
 	       OPTF_NEGATION | OPTF_NOPROGNAME);
     if (i < 0) break;
     switch (i) {