[r2003-05-09 21:04:14 by cvscast] Empty log message

Original author: cvscast
Date: 2003-05-09 21:04:14+00:00

driver/examples.ml

@@ -95,6 +95,7 @@ type Man = <man name=String>[ Sons Daughters ];;
 type Woman = <woman name=String>[ Sons Daughters ];;
 type Sons = <sons>[ Man* ];;
 type Daughters = <daughters>[ Woman* ];;
+
 let fun sort (MPerson -> Man ; FPerson -> Woman)
    <person gender=g>[ <name>n <children>[(mc::MPerson | fc::FPerson)*]; _] ->
        let tag = match g with \"F\" -> `woman | \"M\" -> `man in