X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83..4745d0cba82b458d491320c72e564b23899a5310:/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 =