--- branches/vis15/src/compiler/gen/ir/mid-ir.in 2016/02/02 16:59:08 3651 +++ branches/vis15/src/compiler/gen/ir/mid-ir.in 2016/02/02 20:23:12 3652 @@ -23,7 +23,7 @@ type tys = ty list fun sametys (tys1, tys2) = ListPair.allEq samety (tys1, tys2) fun hashtys tys = List.foldl (fn (ty, s) => hashty ty + 0w3 * s) 0w0 tys - fun tysToString tys = String.concat["[", String.concatWith "," (List.map tyToString tys), "]" ] + fun tysToString tys = String.concat["[", String.concatWithMap "," tyToString tys, "]" ] (* required helper functions for the int type *) fun sameint (i1 : int, i2) = (i1 = i2)