Add "GUI not supported" primitives to Faustine.

[Faustine.git] / interpreter / process.ml

diff --git a/interpreter/process.ml b/interpreter/process.ml
index ba13961..686adf3 100644 (file)
--- a/interpreter/process.ml
+++ b/interpreter/process.ml
@@ -223,6 +223,10 @@ class proc_ident : faust_exp -> process_type =
          | Rwtable -> self#beam_of_ident n 
                ((input#get.(0))#rwtable input#get.(1) 
                   input#get.(2) input#get.(3) input#get.(4))
          | Rwtable -> self#beam_of_ident n 
                ((input#get.(0))#rwtable input#get.(1) 
                   input#get.(2) input#get.(3) input#get.(4))

+         | other -> 
+             let err_message = "GUI not supported: " 
+               ^ (string_of_symbol other) ^ "." in
+             raise (Process_error err_message)

       end;;
 
 class virtual process_binary =
       end;;
 
 class virtual process_binary =