From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Oct 2018 03:19:07 +0000 (-0700)
Subject: Fix bug in LIARC that tried to compile unused code.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~204
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=097f86c59f4d22ba9b92ea08ad9cfdb9687ca1b2;p=mit-scheme.git

Fix bug in LIARC that tried to compile unused code.
---

diff --git a/src/compiler/machines/C/decls.scm b/src/compiler/machines/C/decls.scm
index 1abc337af..d699401c1 100644
--- a/src/compiler/machines/C/decls.scm
+++ b/src/compiler/machines/C/decls.scm
@@ -60,7 +60,11 @@ USA.
 		   "machines/C"))))
     (if (null? filenames)
 	(error "Can't find source files of compiler"))
-    (set! source-filenames filenames))
+    (set! source-filenames
+	  ;; Don't process these excluded files.  It would be better to extract
+	  ;; the filenames from the package description, but that's hard to do
+	  ;; without extending the package abstraction a bit.
+	  (lset-difference string=? filenames '("base/asstop" "base/crsend"))))
   (set! source-hash (make-string-hash-table))
   (set! source-nodes
 	(map (lambda (filename)