/[marvin]/marvin/src/libnn/misc/env.ml
ViewVC logotype

Diff of /marvin/src/libnn/misc/env.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by srv89, Mon Sep 8 23:28:47 2003 UTC revision 1.4 by srv89, Tue Sep 9 12:48:47 2003 UTC
# Line 163  object Line 163  object
163    *)    *)
164    method out module_name msg =    method out module_name msg =
165      let str =      let str =
166        ("[LibNN]: <" ^ module_name ^ "> " ^ msg) in        ("[LibNN] (" ^ module_name ^ "): " ^ msg) in
167        Printf.fprintf _outChannel " %s\n" str        Printf.fprintf _outChannel " %s\n" str
168    
169    (**    (**
# Line 192  object Line 192  object
192    *)    *)
193    method err module_name msg =    method err module_name msg =
194      let str =      let str =
195        ("[LibNN]: <" ^ module_name ^ "> (ERROR) " ^ msg) in        ("[LibNN] (" ^ module_name ^ "): ERROR: " ^ msg) in
196        Printf.fprintf _errChannel " %s\n" str        Printf.fprintf _errChannel " %s\n" str
197                    
198    (**    (**

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26