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

fix environ(X,Y).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@191 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-11-23 12:50:45 +00:00
parent dd31b28cf8
commit 8b0b742bd2
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
config.h.in
View File

@ -166,6 +166,8 @@
#undef HAVE_SIGSEGV #undef HAVE_SIGSEGV
#undef HAVE_ENVIRON
#define SELECT_TYPE_ARG1 #define SELECT_TYPE_ARG1
#define SELECT_TYPE_ARG234 #define SELECT_TYPE_ARG234
#define SELECT_TYPE_ARG5 #define SELECT_TYPE_ARG5

4
pl/directives.yap
View File

@ -67,8 +67,8 @@
op(P,OPSEC,OP). op(P,OPSEC,OP).
'$exec_directive'(set_prolog_flag(F,V), _, _) :- '$exec_directive'(set_prolog_flag(F,V), _, _) :-
set_prolog_flag(F,V). set_prolog_flag(F,V).
'$exec_directive'(ensure_loaded(F), _, _) :- '$exec_directive'(ensure_loaded(F), _, M) :-
'$ensure_loaded'(F). '$ensure_loaded'(F, M).
'$exec_directive'(char_conversion(IN,OUT), _, _) :- '$exec_directive'(char_conversion(IN,OUT), _, _) :-
char_conversion(IN,OUT). char_conversion(IN,OUT).
'$exec_directive'(public(P), _, M) :- '$exec_directive'(public(P), _, M) :-