From bc6846d6f7dfd328110f952e3e8f40dda134255c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa=20II?= <vsc@dcc.fc.up.pt>
Date: Tue, 20 Apr 2010 23:13:52 +0100
Subject: [PATCH] start improving support for dialect

---
 pl/dialect.yap    | 8 ++++++++
 pl/directives.yap | 8 --------
 2 files changed, 8 insertions(+), 8 deletions(-)
 create mode 100644 pl/dialect.yap

diff --git a/pl/dialect.yap b/pl/dialect.yap
new file mode 100644
index 000000000..c2850b1b0
--- /dev/null
+++ b/pl/dialect.yap
@@ -0,0 +1,8 @@
+'$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,_).
+
diff --git a/pl/directives.yap b/pl/directives.yap
index c19ebd4a0..84265e5fd 100644
--- 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,_).
-