Removed debug message

phases/context_analysis.ml

@@ -26,7 +26,6 @@ let check_in_scope name errnode scope =
         raise (NodeError (errnode, msg))
 
 let add_to_scope name dec depth (vars, funs) =
-    prerr_string "__add_to_scope: "; prt_node dec;
     let (name, tbl, name_type) = match name with
         | Varname name  -> (name, vars, "variable")
         | Funcname name -> (name, funs, "function")