src/Pure/ML/ml_compiler_polyml.ML
changeset 56618 874bdedb2313
parent 56333 38f1422ef473
child 58991 92b6f4e68c5a
     1.1 --- a/src/Pure/ML/ml_compiler_polyml.ML	Thu Apr 17 14:52:23 2014 +0200
     1.2 +++ b/src/Pure/ML/ml_compiler_polyml.ML	Sat Apr 19 17:23:05 2014 +0200
     1.3 @@ -70,7 +70,7 @@
     1.4  fun eval (flags: flags) pos toks =
     1.5    let
     1.6      val _ = Secure.secure_mltext ();
     1.7 -    val space = if #SML flags then ML_Env.SML_name_space else ML_Env.name_space;
     1.8 +    val space = ML_Env.name_space {SML = #SML flags, exchange = #exchange flags}
     1.9      val opt_context = Context.thread_data ();
    1.10  
    1.11