(cos_make_symbol): Use `cos_retain_object' for `obj->name'.

(cos_retain_symbol): New function.

diff --git a/symbol.c b/symbol.c
index a01b4ce..94cf020 100644 (file)
--- a/symbol.c
+++ b/symbol.c
@@ -66,10 +66,19 @@ cos_make_symbol (COS_String string)
 
   obj->name = string;
   obj->value = NULL;
+  cos_retain_object (string);
   return obj;
 }
 
 int
+cos_retain_symbol (COS_Object obj)
+{
+  cos_retain_object (((COS_Symbol)obj)->value);
+  cos_retain_object (((COS_Symbol)obj)->name);
+  return 0;
+}
+
+int
 cos_release_symbol (COS_Object obj)
 {
   if (obj == NULL)