Commit 93019664 authored by Pietro Abate's avatar Pietro Abate
Browse files

[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
parent 7bd1d2e4
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment