/[marvin]/marvin/src/libnn/pattern.ml
ViewVC logotype

Diff of /marvin/src/libnn/pattern.ml

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

revision 1.2 by matthieu, Tue Jul 8 22:47:28 2003 UTC revision 1.3 by srv89, Wed Jul 9 11:21:03 2003 UTC
# Line 39  object Line 39  object
39    val mutable _inputs = inputVector    val mutable _inputs = inputVector
40    val mutable _outputs = outputVector    val mutable _outputs = outputVector
41    
42    initializer match (inputVector, outputVector) with  (*  initializer match (inputVector, outputVector) with
43        a, b when Array.length a != 0 && Array.length b != 0 -> ()        a, b when Array.length a != 0 && Array.length b != 0 -> ()
44      | _, _ -> (Env.getEnv())#toChannel "Class Pattern : The input and output are empty.\n"      | _, _ -> (Env.getEnv())#toChannel "Class Pattern : The input and output are empty.\n" *)
45    
46    method getInputs = _inputs    method getInputs = _inputs
47    method getOutputs = _outputs    method getOutputs = _outputs

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

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