/[svn]/runtime/print_xml.ml
ViewVC logotype

Diff of /runtime/print_xml.ml

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

revision 375 by abate, Tue Jul 10 17:29:53 2007 UTC revision 405 by abate, Tue Jul 10 17:32:08 2007 UTC
# Line 42  Line 42 
42    in    in
43    
44    let rec print_elt = function    let rec print_elt = function
45      | Xml (Atom tag, Pair (Record attrs, content)) ->      | Xml (Atom tag, Record attrs, content) ->
46          let tag = Atoms.value tag in          let tag = Atoms.value tag in
47          let attrs = LabelMap.mapi_to_list          let attrs = LabelMap.mapi_to_list
48                        (fun n v ->                        (fun n v ->
Legend:
Removed from v.375  
changed lines
  Added in v.405
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5