equal
deleted
inserted
replaced
90 (* load_file *) |
90 (* load_file *) |
91 |
91 |
92 fun load_file current raw_path = |
92 fun load_file current raw_path = |
93 (case check_file current raw_path of |
93 (case check_file current raw_path of |
94 NONE => error ("Could not find ML file " ^ quote (Path.implode raw_path)) |
94 NONE => error ("Could not find ML file " ^ quote (Path.implode raw_path)) |
95 | SOME (path, info) => (File.use path; (path, info))); |
95 | SOME (path, info) => (ML_Context.use path; (path, info))); |
96 |
96 |
97 |
97 |
98 (* datatype master *) |
98 (* datatype master *) |
99 |
99 |
100 datatype master = Master of (Path.T * File.info) * (Path.T * File.info) option; |
100 datatype master = Master of (Path.T * File.info) * (Path.T * File.info) option; |