Do not consume *print-length* on structure name

euslisp · Dec 21, 2019 · da9804f · da9804f
1 parent 0be45b3
commit da9804f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lisp/c/printer.c b/lisp/c/printer.c
@@ -515,8 +515,8 @@ int prlevel;
   writestr(f,(byte *)"#s(",3);
   klass=classof(x);
   printsym(ctx,klass->c.cls.name,f);
+  // structure name is always printed, and do not consume *print-length*
   s=objsize(x); varvec=klass->c.cls.vars->c.vec.v;
-  prlength--;
   while (i<s && (nullprlen || prlength>0)) {
     writech(f,' ');
     printsym(ctx,varvec[i],f);