/[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.7 by matthieu, Wed Sep 10 18:36:32 2003 UTC revision 1.8 by matthieu, Wed Sep 10 20:33:06 2003 UTC
# Line 192  object(this) Line 192  object(this)
192    
193  end  end
194    
195  let env : environmentType option ref = ref None  let env : environment option ref = ref None
196    
197  (**  (**
198    The function which provides a unique instance on the environment to the    The function which provides a unique instance on the environment to the
199    various objects in LibNN.    various objects in LibNN.
200  *)  *)
201  let getEnv() : environmentType =  let getEnv() : environment =
202    match !env with    match !env with
203           None ->           None ->
204             let result = new environment             let result = new environment

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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