display: <var>

This commit is contained in:
Jan Nieuwenhuizen 2019-11-11 00:12:55 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent a455aa8f5b
commit 674bed609b
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 7 additions and 1 deletions

View File

@ -139,7 +139,13 @@ display_helper (struct scm *x, int cont, char *sep, int fd, int write_p)
else if (t == TVARIABLE)
{
fdputs ("#<variable ", fd);
display_helper (x->variable->car, cont, "", fd, 0);
if (x->variable->type == TPAIR)
display_helper (x->variable->car, cont, "", fd, 0);
else
{
fdputs ("value: ", fd);
display_helper (x->variable, cont, "", fd, 0);
}
fdputs (">", fd);
}
else if (t == TNUMBER)