equal
deleted
inserted
replaced
168 | machine_of_prog (ProgHaskell _) = HASKELL |
168 | machine_of_prog (ProgHaskell _) = HASKELL |
169 | machine_of_prog (ProgSML _) = SML |
169 | machine_of_prog (ProgSML _) = SML |
170 |
170 |
171 type naming = int -> string |
171 type naming = int -> string |
172 |
172 |
173 fun default_naming i = "v_" ^ Int.toString i |
173 fun default_naming i = "v_" ^ string_of_int i |
174 |
174 |
175 datatype computer = Computer of |
175 datatype computer = Computer of |
176 (theory_ref * Encode.encoding * term list * unit Sorttab.table * prog * unit Unsynchronized.ref * naming) |
176 (theory_ref * Encode.encoding * term list * unit Sorttab.table * prog * unit Unsynchronized.ref * naming) |
177 option Unsynchronized.ref |
177 option Unsynchronized.ref |
178 |
178 |