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

use SWI stuff module.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-06-14 09:02:44 +01:00
parent eaf96e918b
commit dfe3fcbf0b
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pl/init.yap
View File

@ -115,12 +115,14 @@ system_mode(verbose,off) :- set_value('$verbose',off).
:- use_module('dialect.yap').
:- use_module('history.pl').
:- use_module('dbload.yap').
:- use_module('swi.yap').
'$system_module'('$messages').
'$system_module'('$hacks').
'$system_module'('$attributes').
'$system_module'('$coroutining').
'$system_module'('$history').
'$system_module'('$swi').
yap_hacks:cut_by(CP) :- '$$cut_by'(CP).
@ -162,6 +164,9 @@ yap_hacks:cut_by(CP) :- '$$cut_by'(CP).
:- dynamic prolog:message/3.
:- multifile
prolog:comment_hook/3.
:- module(user).
:- multifile goal_expansion/3.
@ -172,6 +177,11 @@ yap_hacks:cut_by(CP) :- '$$cut_by'(CP).
:- dynamic prolog_file_type/2.
user:prolog_file_type(pl, prolog).
% user:prolog_file_type(Ext, prolog) :-
% current_prolog_flag(associate, Ext),
% Ext \== pl.
:- multifile goal_expansion/2.
:- dynamic goal_expansion/2.
@ -180,6 +190,10 @@ yap_hacks:cut_by(CP) :- '$$cut_by'(CP).
:- dynamic term_expansion/2.
:- multifile system:term_expansion/2.
:- dynamic system:term_expansion/2.
:- multifile file_search_path/2.
:- dynamic file_search_path/2.