From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Jun 1987 20:41:54 +0000 (+0000)
Subject: Fix stupid bug where files were not fasloaded in `load-system!'.
X-Git-Tag: 20090517-FFI~13406
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3004ae466d836883af1404dd5ca99ed4e844524d;p=mit-scheme.git

Fix stupid bug where files were not fasloaded in `load-system!'.
---

diff --git a/v7/src/runtime/system.scm b/v7/src/runtime/system.scm
index 5180af4f4..33f5130fa 100644
--- a/v7/src/runtime/system.scm
+++ b/v7/src/runtime/system.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 13.49 1987/06/05 18:02:50 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 13.50 1987/06/05 20:41:54 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -203,10 +203,11 @@
 	  '()
 	  (split-list files 20
 	    (lambda (head tail)
-	      (newline)
-	      (write-string "Purify")
-	      (purify (list->vector head) true)
-	      (append! head (loop tail))))))
+	      (let ((expressions (map fasload head)))
+		(newline)
+		(write-string "Purify")
+		(purify (list->vector expressions) true)
+		(append! expressions (loop tail)))))))
     (let ((files (format-files-list (access :files-lists system) compiled?)))
       (set! (access :files system)
 	    (map (lambda (file) (pathname->string (car file))) files))