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

remove disabled code.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-07-11 00:17:12 +02:00
parent 74774d49a6
commit 270e272acc
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mes.c
View file

@ -646,13 +646,11 @@ display_helper (scm *x, bool cont, char *sep, bool quote)
return display_helper (car (cdr (x)), cont, "", true);
}
#if QUASIQUOTE
if (/*car (x) == &scm_symbol_quasiquote
||*/ car (x) == &scm_quasiquote) {
if (car (x) == &scm_quasiquote) {
printf ("`");
return display_helper (car (cdr (x)), cont, "", true);
}
if (/*car (x) == &scm_symbol_unquote
||*/ car (x) == &scm_unquote) {
if (car (x) == &scm_unquote) {
printf (",");
return display_helper (car (cdr (x)), cont, "", true);
}