void assign(expr_rec target, expr_rec source)
{
/* Generate code for assignment. */
generate("Store", extract(source), target.name, "");
}