Now that library compilation is fixed, simplify this script.

(cherry picked from commit 108c22580da88ad74deec6ce5889d61909dc53b5)

diff --git a/src/libraries/compile.scm b/src/libraries/compile.scm
index 18484a542fa0c34608baa0ef49467ffccb44b18f..10a2f38f5878d4874f41fe7f9e177f993a54c3af 100644 (file)
--- a/src/libraries/compile.scm
+++ b/src/libraries/compile.scm
@@ -24,17 +24,7 @@ USA.
 
 |#
 
-(for-each (lambda (pn)
-           (parameterize ((current-library-db (new-library-db)))
-             (compile-file pn
-                           (let ((dep
-                                  (merge-pathnames
-                                   (string-append (pathname-name pn)
-                                                  "-impl.scm")
-                                   pn)))
-                             (if (file-exists? dep)
-                                 (list dep)
-                                 '())))))
+(for-each compile-file
          (directory-read
           (merge-pathnames "*.sld"
                            (directory-pathname (current-load-pathname)))))
\ No newline at end of file