Parent Directory | Revision Log | Patch
revision 1.15 by matthieu, Mon Jul 28 21:32:13 2003 UTC | revision 1.16 by matthieu, Wed Jul 30 22:27:51 2003 UTC | |
---|---|---|
# | Line 50 open Pattern | Line 50 open Pattern |
50 | class virtual ['a] nn = | class virtual ['a] nn = |
51 | object | object |
52 | ||
53 | val mutable _step = 0.1 | val mutable _step = 0.01 |
54 | val mutable _corpus = new corpus | val mutable _corpus = new corpus |
55 | ||
56 | method virtual accept : 'a -> unit | method virtual accept : 'a -> unit |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |