improve SWI compatibility.

2009-03-13 19:40:27 +00:00
parent d6a06fe092
commit 67b29f3c85
8 changed files with 283 additions and 233 deletions
--- a/pl/init.yap
+++ b/pl/init.yap
@@ -144,6 +144,8 @@ yap_hacks:cut_by(CP) :- '$$cut_by'(CP).

 :- dynamic user:commons_directory/1.

+:- recorda('$dialect',yap,_).
+
 %
 % cleanup ensure loaded and recover some data-base space.
 %