15 lines
582 B
OCaml
15 lines
582 B
OCaml
$NetBSD: patch-src_utils_net_terminal.ml,v 1.1 2014/10/20 10:12:51 jaapb Exp $
|
|
|
|
Unterminated string constant cleaned up
|
|
--- src/utils/net/terminal.ml.orig 2005-11-19 17:19:45.000000000 +0000
|
|
+++ 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 } *)
|
|
+ (* { | canal ALL } *)
|
|
with Not_found -> (* pas encore de recepteur pour ce canal *)
|
|
try (* on en cree un *)
|
|
let serveur = nsrecord.get_loc chan in
|