equal
deleted
inserted
replaced
161 ("lam_trans", [name]) |
161 ("lam_trans", [name]) |
162 else |
162 else |
163 error ("Unknown parameter: " ^ quote name ^ ".")) |
163 error ("Unknown parameter: " ^ quote name ^ ".")) |
164 |
164 |
165 |
165 |
166 (* Ensures that type encodings such as "mono_simple?" and "poly_guards!!" are |
166 (* Ensures that type encodings such as "mono_native?" and "poly_guards!!" are |
167 read correctly. *) |
167 read correctly. *) |
168 val implode_param = strip_spaces_except_between_idents o space_implode " " |
168 val implode_param = strip_spaces_except_between_idents o space_implode " " |
169 |
169 |
170 structure Data = Theory_Data |
170 structure Data = Theory_Data |
171 ( |
171 ( |