Parcourir la source

some style changes

Getty Ritter il y a 3 ans
Parent
commit
3076669d64
1 fichiers modifiés avec 6 ajouts et 3 suppressions
  1. 6 3
      examples/halfling_ipa.matzo

+ 6 - 3
examples/halfling_ipa.matzo

@@ -1,7 +1,10 @@
-tuple-map := { func => {tup => tuple-fold.<{xs => {x => concat.<xs, <func.x>>}}, <>, tup>}};
+(* these should probably be part of the stdlib eventually *)
+tuple-map := {func => {tup =>
+  tuple-fold.<{xs => {x => concat.<xs, <func.x>>}}, <>, tup>
+}};
+flatten := {t => tuple-fold.<{ x => { xs => x xs } }, "", t>};
 
-flatten := { t => tuple-fold.<{ x => { xs => x xs } }, "", t> };
-word := { w => flatten.(tuple-map.orthography.w) };
+word := {w => flatten.(tuple-map.orthography.w)};
 wd := concat.<begin, middle, end>;
 middle := syll | concat.<syll, syll> | concat.<syll, syll, syll> | concat.<syll, syll, syll, syll>;
 syll := <cons, vowel>;