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); return display_helper (car (cdr (x)), cont, "", true);
} }
#if QUASIQUOTE #if QUASIQUOTE
if (/*car (x) == &scm_symbol_quasiquote if (car (x) == &scm_quasiquote) {
||*/ car (x) == &scm_quasiquote) {
printf ("`"); printf ("`");
return display_helper (car (cdr (x)), cont, "", true); return display_helper (car (cdr (x)), cont, "", true);
} }
if (/*car (x) == &scm_symbol_unquote if (car (x) == &scm_unquote) {
||*/ car (x) == &scm_unquote) {
printf (","); printf (",");
return display_helper (car (cdr (x)), cont, "", true); return display_helper (car (cdr (x)), cont, "", true);
} }