allowed Ctrl+C to break macros loops

interp.ml

@@ -1681,7 +1681,7 @@ let rec eval ctx (e,p) =
 			| _ ->
 				VNull
 		in
-		loop()
+		(try loop() with Sys.Break -> throw ctx p "Ctrl+C")
 	| EWhile (econd,e,DoWhile) ->
 		let rec loop() =
 			let v = (try

main.ml

@@ -684,6 +684,7 @@ with
 
 ;;
 let all = Common.timer "other" in
+Sys.catch_break true;
 process_params [] (List.tl (Array.to_list Sys.argv));
 all();
 if !measure_times then begin