Bugs fixed for stdin and stdout.

[Faustine.git] / interpreter / process.ml

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