Remove unused variable.

This commit is contained in:
Sam Tobin-Hochstadt 2016-03-26 14:33:43 -04:00
parent b9b71b20cc
commit b1ba506b52

View File

@ -4547,7 +4547,6 @@ static void add_type(Optimize_Info *info, Scheme_Object *var, Scheme_Object *pre
static void add_type_no(Optimize_Info *info, Scheme_Object *var, Scheme_Object *pred)
/* Currently only check a few special cases for lists. */
{
Scheme_Hash_Tree *new_types = info->types;
Scheme_Object *old_pred;
if (SCHEME_VAR(var)->mutated)