in English addGenitiveS should use the BIND token

This commit is contained in:
kr.angelov
2014-12-19 15:33:54 +00:00
parent b5269b262b
commit 327ed5836a

View File

@@ -39,6 +39,6 @@ oper
-- Note: this results in a space before 's, but there's
-- not mauch we can do about that.
addGenitiveS : Str -> Case => Str = \s ->
table { Gen => s ++ "'s"; _ => s } ;
table { Gen => s ++ BIND ++ "'s"; _ => s } ;
}