Added test for .string

This commit is contained in:
Dmitry Boulytchev 2018-10-31 21:48:44 +03:00
parent 3cd95f8b5f
commit 06d05b1506
5 changed files with 65 additions and 7 deletions

View file

@ -121,12 +121,14 @@ static void printValue (void *p) {
case SEXP_TAG:
printStringBuf ("`%s", de_hash (TO_SEXP(p)->tag));
printStringBuf (" (");
for (int i = 0; i < LEN(a->tag); i++) {
printValue ((void*)((int*) a->contents)[i]);
if (i != LEN(a->tag) - 1) printStringBuf (", ");
if (LEN(a->tag)) {
printStringBuf (" (");
for (int i = 0; i < LEN(a->tag); i++) {
printValue ((void*)((int*) a->contents)[i]);
if (i != LEN(a->tag) - 1) printStringBuf (", ");
}
printStringBuf (")");
}
printStringBuf (")");
break;
default: