~ chicken-core (chicken-5) 3b5d5039ad54f959bd8b88d96d90eff18107d0b0
commit 3b5d5039ad54f959bd8b88d96d90eff18107d0b0
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Oct 7 12:26:59 2021 +0200
Commit: Mario Domenech Goulart <mario@parenteses.org>
CommitDate: Thu Oct 7 21:38:55 2021 +0200
Treat core unit requirements for "chicken.foreign" as builtin to avoid appearance in .link files
Signed-off-by: Mario Domenech Goulart <mario@parenteses.org>
diff --git a/eval.scm b/eval.scm
index ce388eb1..30c651cd 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1252,7 +1252,7 @@
(let ((mod (or (eq? lib mod) mod)))
(cond
((assq lib core-unit-requirements) =>
- (lambda (a) (values (cdr a) #f)))
+ (lambda (a) (values (cdr a) #t)))
((memq lib builtin-features)
(values '(##core#undefined) #t))
((memq lib core-units)
Trap