mes.c: fix symbol? for nil.

2016-07-17 13:16:10 +02:00 · 2016-07-17 13:16:10 +02:00 · f19d6dfde4
parent 4574896f68
commit f19d6dfde4
1 changed files with 4 additions and 2 deletions
--- a/mes.c
+++ b/mes.c
@ -498,8 +498,10 @@ string_p (scm *x)
 scm *
 symbol_p (scm *x)
 {
-  //TODO: #f,#t,nil also `symbols' atm
-  return x->type == SYMBOL ? &scm_t : &scm_f;
+  return (x->type == SYMBOL
+          && x != &scm_nil
+          && x != &scm_f
+          && x != &scm_t) ? &scm_t : &scm_f;
 }

 scm *