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

core: Bugfix number-based-cells: allow displaying (current-module).

Browse source 
* display.c (display): Handle cell_symbol_quote as symbol.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-17 14:43:42 +01:00
parent f3c464d07b
commit 738eabbe0e
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
display.c
View file

@ -87,7 +87,10 @@ display_helper (FILE* f, SCM x, bool cont, char const *sep, bool quote)
}
if (car (x) == cell_symbol_quote) {
fprintf (f, "'");
return display_helper (f, car (cdr (x)), cont, "", true);
x = cdr (x);
if (TYPE (x) != FUNCTION)
x = car (x);
return display_helper (f, x, cont, "", true);
}
if (!cont) fprintf (f, "(");
display_ (f, car (x));