Fixed regular Adj ending in 'r' in Cat

2026-07-02 03:58:34 -06:00 · 2010-05-29 14:54:59 +00:00
parent d17c9a1c1b
commit 94a8938482
2 changed files with 2 additions and 1 deletions
@@ -120,6 +120,7 @@ oper
  mkAdjReg : Str -> Adj = \prim ->
 	case last prim of {
 		"e"|"u"|"o"	=> adjFondo prim ;
+		"l"|"r"       => adjFidel prim ;
 		_			=> adjPrim prim  
 	} ;