Parent Directory | Revision Log | Patch
revision 1.8 by matthieu, Wed Jul 16 21:45:15 2003 UTC | revision 1.9 by matthieu, Thu Jul 17 00:06:55 2003 UTC | |
---|---|---|
# | Line 83 object | Line 83 object |
83 | (** | (** |
84 | Adds a pattern to the object's patterns set. | Adds a pattern to the object's patterns set. |
85 | *) | *) |
86 | method addPattern (thePattern : pattern) = List.append _patterns [thePattern] | method addPattern (thePattern : pattern) = _patterns <- thePattern::_patterns |
87 | ||
88 | (** | (** |
89 | Get the current learning position | Get the current learning position |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |