error "Static Errors";
authorwenzelm
Tue Mar 24 00:36:32 2009 +0100 (2009-03-24 ago)
changeset 3068127ee3f4ea99c
parent 30680 0863bb353065
child 30682 dcb233670c98
error "Static Errors";
src/Pure/ML/ml_test.ML
     1.1 --- a/src/Pure/ML/ml_test.ML	Tue Mar 24 00:30:52 2009 +0100
     1.2 +++ b/src/Pure/ML/ml_test.ML	Tue Mar 24 00:36:32 2009 +0100
     1.3 @@ -114,7 +114,7 @@
     1.4  
     1.5      fun result_fun (parse_tree, code) () =
     1.6       (Context.>> (Result.map (append (the_list parse_tree)));
     1.7 -      (case code of NONE => warning "Static Errors" | SOME result => apply_result (result ())));
     1.8 +      (case code of NONE => error "Static Errors" | SOME result => apply_result (result ())));
     1.9  
    1.10  
    1.11      (* compiler invocation *)