~ chicken-core (chicken-5) 9a523d3e40281f40971631734da222636501c91e
commit 9a523d3e40281f40971631734da222636501c91e
Author: Kooda <kooda@upyum.com>
AuthorDate: Wed Mar 3 11:49:57 2021 +0100
Commit: Kooda <kooda@upyum.com>
CommitDate: Mon Apr 12 19:57:29 2021 +0200
chicken-install: don’t try to generate build commands for data components
diff --git a/egg-compile.scm b/egg-compile.scm
index be05f6a6..a4c4bf0c 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -526,9 +526,14 @@
(if (memq 'static link)
(list (apply compile-static-object data))
'())))))
- (else
- (let ((data (assq id genfiles)))
- (list (apply compile-generated-file data))))))
+ ((assq id genfiles) =>
+ (lambda (data)
+ (list (apply compile-generated-file data))))
+ ((or (assq id data)
+ (assq id cinc)
+ (assq id scminc))
+ '()) ;; nothing to build for data components
+ (else (error "Error in chicken-install, don't know how to build component" id))))
order)
;; installation commands
(append
Trap