From f9cd010242beeca97efa6206b5ce2eaceba1df8f Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 22 Nov 2010 21:47:17 +0000
Subject: [PATCH] do not reexecute function on restore if f_name is NULL.

---
 C/load_dl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/load_dl.c b/C/load_dl.c
index 5edeb56da..10b2b0e50 100755
--- a/C/load_dl.c
+++ b/C/load_dl.c
@@ -133,7 +133,7 @@ LoadForeign(StringList ofiles, StringList libs,
 
     ofiles->handle = handle;
 
-    if (!*init_proc)
+    if (proc_name && !*init_proc)
       *init_proc = (YapInitProc) dlsym(handle,proc_name);
 
     ofiles = ofiles->next;