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

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

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

revision 1.2 by srv89, Mon Sep 1 13:08:35 2003 UTC revision 1.3 by srv89, Sun Sep 7 19:13:12 2003 UTC
# Line 89  object Line 89  object
89    *)    *)
90    method addPattern (thePattern : pattern) =    method addPattern (thePattern : pattern) =
91      _patterns <- thePattern::_patterns      _patterns <- thePattern::_patterns
92          
93    (**    (**
94      Get the current learning position      Get the current learning position
95    *)    *)
96    method getLearnPos =    method getLearnPos =
97      _learnPos      _learnPos
98          
99    (**    (**
100      Increment the current learning position.      Increment the current learning position.
101    *)    *)

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