From 3004ae466d836883af1404dd5ca99ed4e844524d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Jun 1987 20:41:54 +0000
Subject: [PATCH] Fix stupid bug where files were not fasloaded in
 `load-system!'.

---
 v7/src/runtime/system.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

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))
-- 
2.25.1