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

a few extra portability fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2090 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-02-12 18:10:48 +00:00
parent 162888c4bc
commit 29d7bac9b7
3 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
GPL/aggregate.pl
View File

@ -1,4 +1,4 @@
/* $Id: aggregate.pl,v 1.1 2008-02-12 17:03:52 vsc Exp $ /* $Id: aggregate.pl,v 1.2 2008-02-12 18:10:48 vsc Exp $
Part of SWI-Prolog Part of SWI-Prolog
@ -42,6 +42,10 @@
:- use_module(library(error)). :- use_module(library(error)).
:- use_module(library(lists)). :- use_module(library(lists)).
:- if(current_prolog_flag(dialect, yap)).
:- use_module(library(maplist)).
:- endif.
:- module_transparent :- module_transparent
foreach/2, foreach/2,
aggregate/3, aggregate/3,

4
LGPL/prolog_xref.pl
View File

@ -1,4 +1,4 @@
/* $Id: prolog_xref.pl,v 1.1 2008-02-12 17:03:54 vsc Exp $ /* $Id: prolog_xref.pl,v 1.2 2008-02-12 18:10:48 vsc Exp $
Part of SWI-Prolog Part of SWI-Prolog
@ -118,6 +118,8 @@ genarg(X,Y,Z) :-
:- else. :- else.
% yap % yap
:- ensure_loaded(library(swi)).
:- user_defined_flag(xref). :- user_defined_flag(xref).
:- use_module(library(arg)). :- use_module(library(arg)).

12
library/swi.yap
View File

@ -23,10 +23,10 @@
term_hash/2, term_hash/2,
variant/2]). variant/2]).
:- multifile :- dynamic
prolog:message/3. prolog:message/3.
:- dynamic :- multifile
prolog:message/3. prolog:message/3.
:- multifile :- multifile
@ -174,9 +174,17 @@ prolog:nth1(I,L,A) :- nth(I,L,A).
prolog:prolog_to_os_filename(X,X). prolog:prolog_to_os_filename(X,X).
prolog:is_absolute_file_name(X) :-
absolute_file_name(X,X).
prolog:read_clause(X,Y) :-
read_term(X,Y,[singetons(warning)]).
prolog:forall(X,Y) :- prolog:forall(X,Y) :-
catch(do_forall(X,Y), fail_forall, fail). catch(do_forall(X,Y), fail_forall, fail).
prolog:string(_) :- fail.
do_forall(X,Y) :- do_forall(X,Y) :-
call(X), call(X),
do_for_forall(Y). do_for_forall(Y).