andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mes.c: fix symbol? for nil.

This commit is contained in:
Jan Nieuwenhuizen 2016-07-17 13:16:10 +02:00
parent 4574896f68
commit f19d6dfde4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mes.c
View File

@ -498,8 +498,10 @@ string_p (scm *x)
scm * scm *
symbol_p (scm *x) symbol_p (scm *x)
{ {
//TODO: #f,#t,nil also `symbols' atm return (x->type == SYMBOL
return x->type == SYMBOL ? &scm_t : &scm_f; && x != &scm_nil
&& x != &scm_f
&& x != &scm_t) ? &scm_t : &scm_f;
} }
scm * scm *