/[svn]/misc/pretty.ml
ViewVC logotype

Diff of /misc/pretty.ml

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

revision 1473 by abate, Tue Jul 10 17:29:59 2007 UTC revision 1474 by abate, Tue Jul 10 18:53:27 2007 UTC
# Line 228  Line 228 
228      List.iter elim slots;      List.iter elim slots;
229      let r =      let r =
230        List.fold_left        List.fold_left
231          (fun accu (s,t) -> if s == final then alt accu t else accu)          (fun accu (s,t) ->
232               if s == final then alt accu t else accu)
233          empty          empty
234          initial.outg in          initial.outg in
235      regexp r      regexp r
Legend:
Removed from v.1473  
changed lines
  Added in v.1474
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5