[r2005-06-15 11:25:03 by afrisch] Empty log message

Original author: afrisch
Date: 2005-06-15 11:25:03+00:00

benchmarks/split3.cd

@@ -10,13 +10,13 @@ type Sons = <sons>[ Man* ]
 type Daughters = <daughters>[ Woman* ]
 
 let split_m (MPerson -> Man)
- <_>[ <_>n <_>[(mc::<_ gender="M">_ | fc::_)*] ] ->
+ <_ ..>[ <_>n <_>[(mc::<_ gender="M">_ | fc::_)*] ] ->
    let s = map mc with x -> split_m x in
    let d = map fc with x -> split_f x in       
    <man name=n>[ <sons>s  <daughters>d ] 
 
 let split_f (FPerson -> Woman)
- <_>[ <_>n <_>[(mc::<_ gender="M">_ | fc::_)*] ] ->
+ <_ ..>[ <_>n <_>[(mc::<_ gender="M">_ | fc::_)*] ] ->
    let s = map mc with x -> split_m x in
    let d = map fc with x -> split_f x in       
    <woman name=n>[ <sons>s  <daughters>d ]