unquoting fix.

This commit is contained in:
Jan Nieuwenhuizen 2016-07-17 23:43:16 +02:00
parent 005f146b68
commit be2326f351
1 changed files with 6 additions and 2 deletions

8
mes.c
View File

@ -214,16 +214,20 @@ quasiquote (scm *x)
}
scm *
unquote (scm *x)
unquote (scm *x) //int must not add to environment
{
return cons (&scm_symbol_unquote, x);
}
scm *unquote (scm *x);
scm scm_unquote = {FUNCTION1, .name="unquote", .function1=&unquote};
scm *
unquote_splicing (scm *x)
unquote_splicing (scm *x) //int must not add to environment
{
return cons (&scm_symbol_unquote_splicing, x);
}
scm *unquote_splicing (scm *x);
scm scm_unquote_splicing = {FUNCTION1, .name="unquote-splicing", .function1=&unquote_splicing};
#endif
//Library functions