start improving support for dialect

2010-04-20 23:13:52 +01:00
parent acee213eeb
commit bc6846d6f7
2 changed files with 8 additions and 8 deletions
--- a/pl/directives.yap
+++ b/pl/directives.yap
@@ -172,12 +172,4 @@ user_defined_directive(Dir,Action) :-
 '$thread_initialization'(M:D) :-
 	'$initialization'(M:D).

-'$expects_dialect'(swi) :-
-	eraseall('$dialect'),
-	recorda('$dialect',swi,_),
-	load_files(library('dialect/swi'),[silent(true),if(not_loaded)]).
-'$expects_dialect'(yap) :-
-	eraseall('$dialect'),
-	recorda('$dialect',yap,_).
-