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 1abc337aff931eb84d2b3f5305327371ded486a4..d699401c1bd14cc59cdeed4bf72d0c08cfdd89cf 100644 (file)
--- 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)