From 8b0b742bd2c4c2b6e1cf5b8f08c376dd3be4c934 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 23 Nov 2001 12:50:45 +0000
Subject: [PATCH] fix environ(X,Y).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@191 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 config.h.in       | 2 ++
 pl/directives.yap | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/config.h.in b/config.h.in
index c017a1664..99795bff4 100644
--- a/config.h.in
+++ b/config.h.in
@@ -166,6 +166,8 @@
 
 #undef  HAVE_SIGSEGV
 
+#undef  HAVE_ENVIRON
+
 #define  SELECT_TYPE_ARG1    
 #define  SELECT_TYPE_ARG234  
 #define  SELECT_TYPE_ARG5    
diff --git a/pl/directives.yap b/pl/directives.yap
index 1ac2d218e..06e5d41b9 100644
--- a/pl/directives.yap
+++ b/pl/directives.yap
@@ -67,8 +67,8 @@
 	op(P,OPSEC,OP).
 '$exec_directive'(set_prolog_flag(F,V), _, _) :-
 	set_prolog_flag(F,V).
-'$exec_directive'(ensure_loaded(F), _, _) :-
-	'$ensure_loaded'(F).
+'$exec_directive'(ensure_loaded(F), _, M) :-
+	'$ensure_loaded'(F, M).
 '$exec_directive'(char_conversion(IN,OUT), _, _) :-
 	char_conversion(IN,OUT).
 '$exec_directive'(public(P), _, M) :-