~ chicken-core (chicken-5) 48724eb0c2b0d4a45e23817aa2b5b776cf836bfc

commit 48724eb0c2b0d4a45e23817aa2b5b776cf836bfc
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Apr 8 23:09:11 2017 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Apr 8 23:09:11 2017 +0200

    drop directory from files in link file

diff --git a/core.scm b/core.scm
index 602dad71..cfa9eac9 100644
--- a/core.scm
+++ b/core.scm
@@ -327,6 +327,7 @@
 	chicken.eval
 	chicken.expand
 	chicken.foreign
+        chicken.pathname
 	chicken.format
 	chicken.internal
 	chicken.io
@@ -1689,7 +1690,9 @@
 ;;; Register statically linked extension
 
 (define (register-static-extension id path)
-  (set! linked-static-extensions (cons path linked-static-extensions)))
+  (set! linked-static-extensions
+    (cons (pathname-strip-directory path)
+          linked-static-extensions)))
 
 
 ;;; Create entry procedure: