11 lines
427 B
OCaml
11 lines
427 B
OCaml
--- src/utils/net/terminal.ml.orig 2005-11-19 17:19:45 UTC
|
|
+++ src/utils/net/terminal.ml
|
|
@@ -185,7 +185,7 @@ module Output = struct
|
|
let canal = List.assoc chan !chanmap in
|
|
etat.chan <- Some (chan, canal);
|
|
info (sprintf "connecte au canal '%s'" chan);
|
|
- (* {| canal ALL } *)
|
|
+
|
|
with Not_found -> (* pas encore de recepteur pour ce canal *)
|
|
try (* on en cree un *)
|
|
let serveur = nsrecord.get_loc chan in
|