~ chicken-core (chicken-5) a1683b79556edf2232f2a10d38270596c6fd9472

commit a1683b79556edf2232f2a10d38270596c6fd9472
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sat Jun 9 08:48:28 2018 +1200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Nov 11 20:07:25 2018 +0100

    Drop `find-static-extension' from the eval unit
    
    This procedure not used anywhere anymore.
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/eval.scm b/eval.scm
index 68c824bf..c4078265 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1272,14 +1272,8 @@
   (for-each (cut ##sys#check-symbol <> 'provided?) ids)
   (every ##sys#provided? ids))
 
-(define (find-static-extension id)
-  (let ((p (##sys#canonicalize-extension-path id #f)))
-    (find-file (##sys#string-append p object-file-extension)
-	       (repository-path))))
-
 ;; Export for internal use in csc, modules and batch-driver:
 (define chicken.load#find-file find-file)
-(define chicken.load#find-static-extension find-static-extension)
 (define chicken.load#find-dynamic-extension find-dynamic-extension)
 
 ;;