Commit 07ea3cd4 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2003-05-09 21:04:14+00:00
parent 042539d9
......@@ -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
......
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