X-Git-Url: https://git.distorted.org.uk/~mdw/runlisp/blobdiff_plain/90fec59bc262b3d5050c651fdc6be44a31880099..cf51f4b4b4e376229851b142411b81f7b0fd8877:/dump-runlisp-image.c

diff --git a/dump-runlisp-image.c b/dump-runlisp-image.c
index 9dc6a2a..836dc54 100644
--- a/dump-runlisp-image.c
+++ b/dump-runlisp-image.c
@@ -918,7 +918,7 @@ static void finish_job(struct job *job)
 	    job->exit);
 
   /* What happens next depends on the state of the job.  This is the main
-   * place which advanced the job state machine.
+   * place which advances the job state machine.
    */
   if (ok) switch (job->st) {
 
@@ -996,6 +996,12 @@ static void finish_job(struct job *job)
 	ok = 0; break;
       }
 
+      /* Notice the image so that it doesn't get junked. */
+      if (flags&AF_JUNK) {
+	p = strrchr(job->imghash, '/'); if (p) p++; else p = job->imghash;
+	notice_filename(p, strlen(p));
+      }
+
       /* Determine the basename of the final image. */
       p = strrchr(job->imghash, '/'); if (p) p++; else p = job->imghash;