/[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.2 by srv89, Thu Jul 10 21:36:21 2003 UTC revision 1.3 by matthieu, Thu Jul 10 21:55:33 2003 UTC
# Line 48  open DefaultVisitor Line 48  open DefaultVisitor
48    
49  class commonNN =  class commonNN =
50  object (self : 'a)  object (self : 'a)
51    inherit [('a) defaultVisitor] mlpNN    inherit [('a) computeVisitor] mlpNN
52    method accept (visitor : ('a) defaultVisitor) = visitor#visitCommon self    method accept (visitor : ('a) computeVisitor) = visitor#visitCommon self
   method print = Printf.printf "ca marche...\n"; flush stdout  
53  end  end

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