diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

start improving support for dialect

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-04-20 23:13:52 +01:00
parent acee213eeb
commit bc6846d6f7
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/dialect.yap Normal file
View File

@ -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,_).

8
pl/directives.yap
View File

@ -172,12 +172,4 @@ user_defined_directive(Dir,Action) :-
'$thread_initialization'(M:D) :- '$thread_initialization'(M:D) :-
'$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,_).