From 96ca7fc2eb2280e2d1349a245d30072edbd6acba Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Tue, 26 Aug 2008 00:07:08 +0100 Subject: [PATCH] tell YAP that thi expects swi. Extend the default consult path with the current directory. --- chr_swi_bootstrap.pl | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/chr_swi_bootstrap.pl b/chr_swi_bootstrap.pl index ede6eaf..847c9f7 100644 --- a/chr_swi_bootstrap.pl +++ b/chr_swi_bootstrap.pl @@ -37,7 +37,19 @@ , chr_compile/3 ]). %% SWI begin +% vsc: +:- expects_dialect(swi). + +:- if(current_prolog_flag(dialect, yap)). + +:- prolog_load_context(directory,D), add_to_path(D). + +:- else. + :- use_module(library(listing)). % portray_clause/2 + +:- endif. + %% SWI end :- include(chr_op). @@ -77,8 +89,8 @@ chr_compile(From, To, MsgLevel) :- %% SWI begin -specific_declarations([:- use_module('chr_runtime'), - :- style_check(-discontiguous)|Tail], Tail). +specific_declarations([(:- use_module('chr_runtime')), + (:- style_check(-discontiguous))|Tail], Tail). %% SWI end %% SICStus begin -- 2.11.4.GIT