revert the addition of pot5art

2026-06-28 20:36:29 -06:00 · 2023-08-30 21:35:03 +02:00
parent 28afb4d0dc
commit f53b872b33
4 changed files with 0 additions and 16 deletions
@@ -65,13 +65,6 @@ lin
    numPl (\\g => d.s ! NCard Utr ++ cardOrd "miljoner" "miljonde" ! g) ;

  pot51 = numPl (cardOrd "miljard" "miljarde") ;
-  pot5art = {
-    s = table {
-          NCard g => case g of {Neutr => "ett" ; _ => "en"} ;
-          _ => "första"
-          } ;
-    n = Sg
-    } ;
  pot5 n =
    numPl (\\g => n.s ! NCard Utr ++
                  cardOrd (case n.n of {