~ 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