/[svn]/compile/compile.ml
ViewVC logotype

Diff of /compile/compile.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 713 by abate, Tue Jul 10 17:58:04 2007 UTC revision 787 by abate, Tue Jul 10 18:03:10 2007 UTC
# Line 53  Line 53 
53    | Typed.Transform (e,brs) -> Transform    | Typed.Transform (e,brs) -> Transform
54        (compile env false e, compile_branches env false brs)        (compile env false e, compile_branches env false brs)
55    | Typed.Xtrans (e,brs) -> Xtrans (compile env false e, compile_branches env false brs)    | Typed.Xtrans (e,brs) -> Xtrans (compile env false e, compile_branches env false brs)
56    | Typed.Validate (e,sch,t) -> Validate (compile env tail e, sch, t)    | Typed.Validate (e,k,sch,t) -> Validate (compile env tail e, k, sch, t)
57    | Typed.RemoveField (e,l) -> RemoveField (compile env tail e,l)    | Typed.RemoveField (e,l) -> RemoveField (compile env tail e,l)
58    | Typed.Dot (e,l) -> Dot (compile env tail e, l)    | Typed.Dot (e,l) -> Dot (compile env tail e, l)
59    | Typed.Try (e,brs) -> Try (compile env false e, compile_branches env tail brs)    | Typed.Try (e,brs) -> Try (compile env false e, compile_branches env tail brs)
Legend:
Removed from v.713  
changed lines
  Added in v.787
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5