~ chicken-core (chicken-5) 3e48666ed3d0bca1843370d1c745bfc1e3a6c54e
commit 3e48666ed3d0bca1843370d1c745bfc1e3a6c54e
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Oct 24 11:21:54 2022 +0200
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Mon Oct 24 12:02:53 2022 +0200
fix broken handling of prelude/postlude options
Signed-off-by: felix <felix@call-with-current-continuation.org>
Signed-off-by: Peter Bex <peter@more-magic.net>
diff --git a/NEWS b/NEWS
index e59c04a2..051646dc 100644
--- a/NEWS
+++ b/NEWS
@@ -10,6 +10,7 @@
e.g. (srfi 1). Fixes #1809, reported by Wolfgang Corcoran-Mathe.
- Fix shell quotation in options passed from csc to other tools.
Fixes #1302, reported by Xin Wang.
+ - The -prelude and -postlude options for csc work properly again.
- Build system
- Default "cc" on BSD systems for building CHICKEN to avoid ABI problems
diff --git a/support.scm b/support.scm
index 3a397219..dd230465 100644
--- a/support.scm
+++ b/support.scm
@@ -356,7 +356,7 @@
(let loop ((lst '()))
(let ((x (read)))
(if (eof-object? x)
- (apply values (reverse lst))
+ (reverse lst)
(loop (cons x lst)))))))))
(cond [(null? xs) '(##core#undefined)]
[(null? (cdr xs)) (car xs)]
Trap