X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/3bcb5ef8fc34c3c453ebd968eb80577dc60e71de..cf57870921b26703aad420c6741c524b33736ff1:/uip/repl.c

diff --git a/uip/repl.c b/uip/repl.c
index f97210c2..15aa0a3a 100644
--- a/uip/repl.c
+++ b/uip/repl.c
@@ -225,7 +225,8 @@ main (int argc, char **argv)
 		    nwhat = 0;
 		    continue;
 		case BILDSW: 
-		    buildsw++;	/* fall... */
+		    buildsw++;
+		    /* FALLTHRU */
 		case NWHATSW: 
 		    nwhat++;
 		    continue;
@@ -452,14 +453,16 @@ try_it_again:
     fclose (in);
 
     {
-	char *filename = concat (mp->foldpath, "/", msg, NULL);
+        char *filename = file ? file : concat (mp->foldpath, "/", msg, NULL);
 
         for (n = 0; n < svector_size (convert_types); ++n) {
             add_convert_header (svector_at (convert_types, n),
                                 svector_at (convert_args, n),
                                 filename, drft);
         }
-	free (filename);
+        if (! file) {
+            free (filename);
+        }
     }
 
     if (nwhat)