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