Fix *print-length* on print-vector

euslisp · Mar 28, 2019 · 3bef60c · 3bef60c
1 parent 0f7711f
commit 3bef60c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lisp/c/printer.c b/lisp/c/printer.c
@@ -403,7 +403,8 @@ int prlevel;
 	    writech(f,' ');}
 	  while (i<n && (nullprlen || prlength>0)) {
 	    prin1(ctx,vec->c.vec.v[i++],f,prlevel);
-	    if (i<n) writech(f,' '); }
+	    if (i<n) writech(f,' ');
+            prlength--; }
 	  if (i<n) writestr(f,(byte *)"... ",4);
 	  writech(f,')');}
   return(vec);}