src/cell.c
/* Construct a pointer to a new Symbol lval */
Construct a pointer to a new Symbol lval
Construct a pointer to a new Symbol lval
cell* sym_cell(apr_pool_t* pool, char* s) 
{
	cell* c = apr_palloc(pool, sizeof(cell));
	c->type = SYM_CELL;
	c->next_sibling = NULL;
	c->sym = apr_palloc(pool, strlen(s) + 1);
	strcpy(c->sym, s);
	return c;
}
cell * sym_cell ( apr_pool_t * pool , char * s ) { cell * c = apr_palloc ( pool , sizeof ( cell ) ) ; c -> type = SYM_CELL ; c -> next_sibling = NULL ; c -> sym = apr_palloc ( pool , strlen ( s ) + 1 ) ; strcpy ( c -> sym , s ) ; return c ; }
Construct a pointer to a new Symbol lval
Construct a pointer to a new Symbol lval