diff --git a/VERSION b/VERSION index 6085e94..23aa839 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.2.1 +1.2.2 diff --git a/lingua.pl b/lingua.pl index af67b7f..8374f2f 100644 --- a/lingua.pl +++ b/lingua.pl @@ -19,7 +19,7 @@ :- use_module(library(semweb/turtle)). :- catch(use_module(library(http/http_open)), _, true). -version_info('lingua v1.2.1'). +version_info('lingua v1.2.2'). help_info('Usage: lingua * * @@ -880,6 +880,8 @@ ( wtcache(X, W) -> true ; ( atom(X), + atom_codes(X, Y), + intersection(Y, [0'!, 0'$, 0'&, 0'', 0'(, 0'), 0'*, 0'+, 0',, 0';, 0'=], []), ( sub_atom(X, I, 1, J, '#') -> J > 1, sub_atom(X, 0, I, _, C), @@ -902,7 +904,9 @@ ; assertz(apfx(E, D)) ), K is J-1, - sub_atom(X, _, K, 1, F) + sub_atom(X, _, K, 1, F), + \+sub_atom(F, _, 1, _, '/'), + \+sub_atom(F, _, 1, 0, '.') -> atom_concat(E, F, W), assertz(wtcache(X, W)) ; ( atom(X),