equal
deleted
inserted
replaced
5 (* initial ML name space *) |
5 (* initial ML name space *) |
6 |
6 |
7 use "ML/ml_name_space.ML"; |
7 use "ML/ml_name_space.ML"; |
8 use "ML/ml_pervasive_initial.ML"; |
8 use "ML/ml_pervasive_initial.ML"; |
9 use "ML/ml_system.ML"; |
9 use "ML/ml_system.ML"; |
10 |
|
11 if List.exists (fn (a, _) => a = "FixedInt") (#allStruct ML_Name_Space.global ()) then () |
|
12 else use "ML/fixed_int_dummy.ML"; |
|
13 |
10 |
14 |
11 |
15 (* multithreading *) |
12 (* multithreading *) |
16 |
13 |
17 use "General/exn.ML"; |
14 use "General/exn.ML"; |