From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 24 Apr 2013 00:49:31 +0000 (-0700)
Subject: ffi: Temporay hack is no longer needed.
X-Git-Tag: release-9.2.0~186
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5955c53c61b6e6b67792ddaac75cf4e336ec30fc;p=mit-scheme.git

ffi: Temporay hack is no longer needed.
---

diff --git a/src/ffi/compile.scm b/src/ffi/compile.scm
index 93018b764..944b6dfcb 100644
--- 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)))