equal
deleted
inserted
replaced
349 fun prep_mixfix (_, _, None) = None |
349 fun prep_mixfix (_, _, None) = None |
350 | prep_mixfix (x, opt_T, Some mx) = Some (mixfix x opt_T mx); |
350 | prep_mixfix (x, opt_T, Some mx) = Some (mixfix x opt_T mx); |
351 |
351 |
352 fun prep_mixfix' (_, _, None) = None |
352 fun prep_mixfix' (_, _, None) = None |
353 | prep_mixfix' (x, _, Some Syntax.NoSyn) = None |
353 | prep_mixfix' (x, _, Some Syntax.NoSyn) = None |
354 | prep_mixfix' (x, opt_T, _) = Some (x, mixfix x opt_T (Syntax.Delimfix x)); |
354 | prep_mixfix' (x, opt_T, _) = Some (x, mixfix x opt_T (Syntax.literal x)); |
355 |
355 |
356 fun prep_struct (x, _, None) = Some x |
356 fun prep_struct (x, _, None) = Some x |
357 | prep_struct _ = None; |
357 | prep_struct _ = None; |
358 |
358 |
359 in |
359 in |