From f19d6dfde4a8f3dbb81d88a8f7a2123958563c4f Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 17 Jul 2016 13:16:10 +0200
Subject: [PATCH] mes.c: fix symbol? for nil.

---
 mes.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/mes.c b/mes.c
index c2096f21..119979bc 100644
--- 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 *