New upstream version 5f2upstream/5f2upstream

1 files changed, 8 insertions, 2 deletions

diff --git a/Link.scm b/Link.scm
index b5394e9..03ac108 100644..100755
--- 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)