src/interp/alloc.c
/*==================================
 * create_string_node -- Create string node
 *  We copy the string memory.
 *================================*/
- Create string node
We copy the string memory.
- Create string node We copy the string memory .
PNODE
create_string_node (PACTX pactx, STRING str)
{
	PNODE node = create_pnode(pactx, ISCONS);
	ASSERT(str); 
	node->vars.iscons.value = create_pvalue_from_string(str);
	return node;
}
PNODE create_string_node ( PACTX pactx , STRING str ) { PNODE node = create_pnode ( pactx , ISCONS ) ; ASSERT ( str ) ; node -> vars . iscons . value = create_pvalue_from_string ( str ) ; return node ; }
create_string_node -- Create string node
  We copy the string memory.
create_string_node -- Create string node We copy the string memory .
/* we're not converting NULL to "" because nobody passes us NULL */