fix argv[0] discovery.

2013-01-13 17:55:13 +00:00
parent ec37045ca3
commit 798afc81c4
16 changed files with 89 additions and 30 deletions
--- a/C/load_foreign.c
+++ b/C/load_foreign.c
@@ -225,10 +225,6 @@ p_open_shared_objects( USES_REGS1 ) {
 void
 Yap_InitLoadForeign( void )
 {
-  if (GLOBAL_argv == NULL)
-    Yap_FindExecutable("yap");
-  else
-    Yap_FindExecutable(GLOBAL_argv[0]);
  Yap_InitCPred("$load_foreign_files", 3, p_load_foreign, SafePredFlag|SyncPredFlag);
  Yap_InitCPred("$open_shared_objects", 0, p_open_shared_objects, SafePredFlag);
  Yap_InitCPred("$open_shared_object", 3, p_open_shared_object, SyncPredFlag);