[r2003-07-05 09:56:04 by cvscast] Beppe small change in the examples

Original author: cvscast
Date: 2003-07-05 09:56:04+00:00

web/overloading.cd

@@ -11,7 +11,7 @@ type Daughters = <daughters>[ Woman* ]
 
 let fun split ({{MPerson -> Man ; FPerson -> Woman}})
   <person gender=g>[ <name>n <children>[(mc::MPerson | fc::FPerson)*] ] ->
-  (* this pattern collects all the MPerson in mc, and all the FPerson in fc *)
+  (* the above pattern collects all the MPerson in mc, and all the FPerson in fc *)
      let tag = match g with "F" -> `woman | "M" -> `man in
      let s = map mc with x -> split x in
      let d = map fc with x -> split x in