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

unquoting fix.

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mes.c
View file

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