From 097f86c59f4d22ba9b92ea08ad9cfdb9687ca1b2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 19 Oct 2018 20:19:07 -0700 Subject: [PATCH] Fix bug in LIARC that tried to compile unused code. --- src/compiler/machines/C/decls.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 2.25.1