ffi: Temporay hack is no longer needed.

diff --git a/src/ffi/compile.scm b/src/ffi/compile.scm
index 93018b764bbb4ef6996ed12e167e0efc1e05ed80..944b6dfcb5df2d7b5f6828936ef268f88b01c50a 100644 (file)
--- a/src/ffi/compile.scm
+++ b/src/ffi/compile.scm
@@ -4,22 +4,6 @@ Compile the FFI system. |#
 
 (load-option 'CREF)
 
-;; Temporay hack.  Remove when (runtime ffi) is in the release.
-(if (not (name->package '(RUNTIME FFI)))
-    (let ((path (package-set-pathname "../runtime/runtime")))
-      (if (not (file-exists? path))
-         (cref/generate-trivial-constructor "../runtime/runtime"))
-      (eval `(for-each-vector-element
-             (package-file/descriptions (fasload ,path))
-             (lambda (description)
-               (if (equal? (package-description/name description) '(RUNTIME FFI))
-                   (begin
-                     (construct-normal-package-from-description description)
-                     (create-links-from-description description)
-                     (load "../runtime/ffi" (->environment '(RUNTIME FFI))
-                           'ignored #t)))))
-           (->environment '(PACKAGE)))))
-
 ;; Temporary hack.  Remove when compile-system is in the release.
 (if (not (environment-bound? (->environment '()) 'compile-system))
     (let ((butil-env (->environment '(cross-reference)))