(cos_release_symbol): Add check for builtin symbols.
authorMORIOKA Tomohiko <tomo.git@chise.org>
Sat, 20 Apr 2013 10:55:13 +0000 (19:55 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Sat, 20 Apr 2013 10:55:13 +0000 (19:55 +0900)
symbol.c

index bf6f2ce..e2d82fd 100644 (file)
--- a/symbol.c
+++ b/symbol.c
@@ -84,6 +84,9 @@ cos_release_symbol (COS_Object obj)
   if (obj == NULL)
     return 0;
 
+  if ( (obj == cos_Qnil) || (obj == cos_Qt) )
+    return 0;
+
   if ( ((COS_Symbol)obj)->value != NULL)
     cos_release_object (((COS_Symbol)obj)->value);