X-Git-Url: https://scm.cri.mines-paristech.fr/git/Faustine.git/blobdiff_plain/456ab1eb0f387a99d0bfdc5bb3c42c20d645b331..adf24ec25c76cc5eaa5aa319eaa2df1405312f9e:/interpreter/process.ml?ds=sidebyside

diff --git a/interpreter/process.ml b/interpreter/process.ml
index ba13961..686adf3 100644
--- 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))
+	  | other -> 
+	      let err_message = "GUI not supported: " 
+		^ (string_of_symbol other) ^ "." in
+	      raise (Process_error err_message)
       end;;
 
 class virtual process_binary =