reduplication restriction

[GoogleCodeExporter]

how to give restriction on reduplication using function _eq, if there's no 
character to reduplicate, so it will return 0.

for example, i have word "eat" and "sleep". i expect the output only 
"sleep-sleep", and no output from "eat".

here's my code

define lexicon {eat}|{sleep};
define temp Cons [Vow|Cons]* -> %< ... %> || .#. _ .#. ;
define pref [..] -> %< Cons [Vow|Cons]* %> %-|| .#. _ %< ;
define RemoveBrackets %<|%> -> 0;

define preRedup lexicon .o. temp .o. pref ;
regex _eq(preRedup, %<, %>) .o. RemoveBrackets;

Original issue reported on code.google.com by reuel.in...@gmail.com on 21 Apr 2015 at 8:45