X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/92128dacf8d5db02379e8f872dc50d31c6aaa55f..78f92ad1e59e5953d07b48aa6fbb7eadce149bd9:/uip/comp.c?ds=inline

diff --git a/uip/comp.c b/uip/comp.c
index 2f7da416..a11f1b7d 100644
--- a/uip/comp.c
+++ b/uip/comp.c
@@ -337,7 +337,8 @@ try_it_again:
 	    adios (drft, "unable to stat");
 	printf ("Draft \"%s\" exists (%ld bytes).", drft, (long) st.st_size);
 	for (i = LISTDSW; i != YESW;) {
-	    if (!(argp = getans ("\nDisposition? ", isdf ? aqrunl : aqrul)))
+	    if (!(argp = read_switch_multiword ("\nDisposition? ",
+						isdf ? aqrunl : aqrul)))
 		done (1);
 	    switch (i = smatch (*argp, isdf ? aqrunl : aqrul)) {
 		case NOSW: 
@@ -381,7 +382,10 @@ try_it_again:
 	dat[3] = outputlinelen;
 	dat[4] = 0;
 	fmt_scan(fmt, scanl, i, dat, NULL);
-	write(out, charstring_buffer (scanl), charstring_bytes (scanl));
+	if (write(out, charstring_buffer (scanl),
+		  charstring_bytes (scanl)) < 0) {
+	    advise (drft, "write");
+	}
 	charstring_free(scanl);
     } else {
 	cpydata (in, out, form, drft);