artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Nicer closure and builtin procedure display.

Browse source 
* display.c (display): Show closure as procedure with formal
  parameters.  Display ariry as fake parameters with builtin.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-20 19:13:31 +01:00
parent d08a28cfc1
commit ec63a9c625
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
display.c
View file

@ -78,6 +78,12 @@ display_helper (FILE* f, SCM x, bool cont, char const *sep, bool quote)
case NUMBER: fprintf (f, "%d", VALUE (x)); break;
case PAIR:
{
if (car (x) == cell_closure) {
fprintf (f, "#<procedure #f ");
display_ (f, (caddr (x)));
fprintf (f, ">");
return cell_unspecified;
}
if (car (x) == cell_circular) {
fprintf (f, "(*circ* . #-1#)");
return cell_unspecified;
@ -127,6 +133,15 @@ display_helper (FILE* f, SCM x, bool cont, char const *sep, bool quote)
fprintf (f, "%s", NAME (x));
else
display_ (f, STRING (x));
fprintf (f, " ");
switch (FUNCTION (x).arity)
{
case -1: fprintf (f, "(. x)"); break;
case 0: fprintf (f, "()"); break;
case 1: fprintf (f, "(x)"); break;
case 2: fprintf (f, "(x y)"); break;
case 3: fprintf (f, "(x y z)"); break;
}
fprintf (f, ">");
break;
}