From fd5f104f287427fee885583bc398c137674e6af0 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Fri, 3 Mar 2017 00:56:40 -0800
Subject: New upstream version 5f2

---
 Link.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 Link.scm

(limited to 'Link.scm')

diff --git a/Link.scm b/Link.scm
old mode 100644
new mode 100755
index b5394e9..03ac108
--- a/Link.scm
+++ b/Link.scm
@@ -53,6 +53,7 @@
 	  (set! file (string-append "./" file)))
       (with-load-pathname file
         (lambda ()
+	  (load:pre 'link file)
 	  (set! linkobj (or (provided? 'sun-dl) (dyn:link file)))
 	  (and linkobj
 	       (for-each (lambda (lib)
@@ -61,7 +62,9 @@
 			 libs))
 	  (if (provided? 'sun-dl) (set! linkobj (dyn:link file)))
 	  (cond ((not linkobj) #f)
-		((dyn:call (file->init_name name) linkobj) #t)
+		((dyn:call (file->init_name name) linkobj)
+		 (load:post 'link file)
+		 #t)
 		(else (dyn:unlink linkobj) #f))))))))
 
  ((defined? vms:dynamic-link-call)
@@ -76,7 +79,10 @@
 	   (set! fil (substring file (+ i 1) (string-length file))))
 	  (else (loop (- i 1)))))
   (with-load-pathname file
-    (lambda () (vms:dynamic-link-call dir fil (file->init_name fil)))))))
+    (lambda ()
+      (load:pre 'link file)
+      (vms:dynamic-link-call dir fil (file->init_name fil))
+      (load:post 'link file))))))
 
 (cond
  ((provided? 'sun-dl)
-- 
cgit v1.2.3