103 |
break; |
break; |
104 |
case integer: |
case integer: |
105 |
case func: |
case func: |
106 |
|
break; |
107 |
case symb: |
case symb: |
108 |
|
free(((symbol*)(val->content.ptr))->id); |
109 |
|
if(((symbol*)(val->content.ptr))->val!=NULL) |
110 |
|
free_val(((symbol*)(val->content.ptr))->val); |
111 |
|
free(val->content.ptr); |
112 |
break; |
break; |
113 |
} |
} |
|
if(val->id!=NULL) |
|
|
free(val->id); |
|
114 |
free(val); /* Free the actual list value */ |
free(val); /* Free the actual list value */ |
115 |
} |
} |
116 |
} |
} |
178 |
new_value->content.val= in_val; |
new_value->content.val= in_val; |
179 |
new_value->type= integer; |
new_value->type= integer; |
180 |
new_value->refcount= 1; |
new_value->refcount= 1; |
|
new_value->id= NULL; |
|
181 |
|
|
182 |
push_val(env, new_value); |
push_val(env, new_value); |
183 |
} |
} |
191 |
strcpy(new_value->content.ptr, in_string); |
strcpy(new_value->content.ptr, in_string); |
192 |
new_value->type= string; |
new_value->type= string; |
193 |
new_value->refcount= 1; |
new_value->refcount= 1; |
|
new_value->id= NULL; |
|
194 |
|
|
195 |
push_val(env, new_value); |
push_val(env, new_value); |
196 |
} |
} |