Merge pull request #396 from Affonso-Gui/fix-format-interrupt

Safely exit format on mismatch argument
euslisp · Oct 10, 2019 · 6a25da0 · 6a25da0
2 parents e9bda60 + 1250d3f
commit 6a25da0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lisp/c/lispio.c b/lisp/c/lispio.c
@@ -491,10 +491,11 @@ pointer argv[];
 	if (islower(cch)) cch=toupper(cch);}
       switch(cch) {
 	case 'A':	/*Ascii*/
+	  a=nextfarg();
 	  osf=ctx->slashflag;
 	  ctx->slashflag=1;
 	  written_count[thr_self()]=0;
-	  prinx(ctx,(pointer)nextfarg(),dest);
+	  prinx(ctx,a,dest);
 	  while (param[0]>written_count[thr_self()]) writech(dest,' ');
 	  ctx->slashflag=osf;
 	  break;