simplified adjectival predication

This commit is contained in:
aarne
2005-03-17 13:10:38 +00:00
parent 087aa10b6f
commit 752ab6dbc1
19 changed files with 152 additions and 237 deletions

View File

@@ -17,8 +17,8 @@ PastTime h m = ss (m.s ++ "
ToTime h m = ss (m.s ++ "i" ++ h.s) ;
ExactTime h = ss (h.s ++ "prick") ;
NumHour n = n ;
NumMinute n = n ;
NumHour n = {s = n.s ! Neutr} ;
NumMinute n = {s = n.s ! Neutr} ;
monday = regN "måndag" utrum ;
tuesday = regN "tisdag" utrum ;