parse/type.c
/*
 * Creates a Tyvar with the same
 * constrants as the 'like' type
 */
Creates a Tyvar with the same
constrants as the 'like' type
Creates a Tyvar with the same constrants as the ' like ' type
Type *mktylike(Srcloc loc, Ty like)
{
    Type *t;
    int i;
    t = mktyvar(loc);
    for (i = 0; traits[like][i]; i++)
        settrait(t, traits[like][i]);
    return t;
}
Type * mktylike ( Srcloc loc , Ty like ) { Type * t ; int i ; t = mktyvar ( loc ) ; for ( i = 0 ; traits [ like ] [ i ] ; i ++ ) settrait ( t , traits [ like ] [ i ] ) ; return t ; }
Creates a Tyvar with the same
 constrants as the 'like' type
Creates a Tyvar with the same constrants as the ' like ' type