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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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