Parent Directory | Revision Log | Patch
revision 1.4 by srv89, Thu Jul 10 22:59:18 2003 UTC | revision 1.5 by matthieu, Thu Jul 10 23:05:32 2003 UTC | |
---|---|---|
# | Line 50 class commonNN = | Line 50 class commonNN = |
50 | object (self : 'a) | object (self : 'a) |
51 | inherit [('a) defaultVisitor] mlpNN | inherit [('a) defaultVisitor] mlpNN |
52 | method accept (visitor : ('a) defaultVisitor) = visitor#visitCommon self | method accept (visitor : ('a) defaultVisitor) = visitor#visitCommon self |
53 | method print = Printf.printf "ca marche\n\n" | |
54 | end | end |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |