Parent Directory
| 
Revision Log
| 
Patch
| revision 221 by abate, Tue Jul 10 17:13:41 2007 UTC | revision 222 by abate, Tue Jul 10 17:15:58 2007 UTC | |
|---|---|---|
| # | Line 24 | Line 24 |
| 24 | SortedMap.from_list (fun _ _ -> assert false) att | SortedMap.from_list (fun _ _ -> assert false) att |
| 25 | ||
| 26 | let elem tag att child = | let elem tag att child = |
| 27 | Xml (Atom (Types.AtomPool.mk tag), Pair (Record (attrib att), child)) | Xml (Atom (Atoms.mk tag), Pair (Record (attrib att), child)) |
| 28 | ||
| 29 | let load_xml_aux s = | let load_xml_aux s = |
| 30 | let config = { default_config with | let config = { default_config with |
|
||||||||
| CVS Admin">CVS Admin | ViewVC Help |
| Powered by ViewVC 1.1.5 |