Add "GUI not supported" primitives to Faustine.

[Faustine.git] / interpreter / main.ml

diff --git a/interpreter/main.ml b/interpreter/main.ml
index 21c2a8e..ff94e29 100644 (file)
--- a/interpreter/main.ml
+++ b/interpreter/main.ml
@@ -83,14 +83,14 @@ let main () =
        let () = print_endline(" Done. (duration: " ^ (string_of_float (toc2 -. tic2)) ^ "s.)") in
 
 
        let () = print_endline(" Done. (duration: " ^ (string_of_float (toc2 -. tic2)) ^ "s.)") in
 
 

-       let () = print_string("    Faustine -> Evaluating...") in
+       let () = print_string("    Faustine -> Constructing signals...") in

        let tic3 = Sys.time () in
        let output = proc#eval input in
        let toc3 = Sys.time () in
        let () = print_endline(" Done. (duration: " ^ (string_of_float (toc3 -. tic3)) ^ "s.)") in
 
 
        let tic3 = Sys.time () in
        let output = proc#eval input in
        let toc3 = Sys.time () in
        let () = print_endline(" Done. (duration: " ^ (string_of_float (toc3 -. tic3)) ^ "s.)") in
 
 

-       let () = print_string("    Faustine -> Calculating...") in
+       let () = print_string("    Faustine -> Evaluating...") in

        let tic4 = Sys.time () in
        let data = output#output !time_max in
        let rates = output#frequency in
        let tic4 = Sys.time () in
        let data = output#output !time_max in
        let rates = output#frequency in