From d14b1cc4848df4060db2d4ece79a76657b980516 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 1 Oct 2018 18:21:26 -0700
Subject: [PATCH] edwin: Fix autogen.sh (sources.sh) to work with 9.2.
---
src/edwin/sources.sh | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/edwin/sources.sh b/src/edwin/sources.sh
index 20f982b6a..aa2c720b2 100755
--- a/src/edwin/sources.sh
+++ b/src/edwin/sources.sh
@@ -62,7 +62,10 @@ ${MIT_SCHEME_EXE} --batch-mode -- $1 <<\EOF
(define (my-write-line . strings)
(apply my-write strings) (newline))
- (let ((command (car (command-line-arguments)))
+ (let ((command (car (if (environment-bound? system-global-environment
+ 'command-line-arguments)
+ (command-line-arguments)
+ (command-line))))
(files (filenames)))
(cond ((string=? command "scm")
(for-each (lambda (name) (my-write " "name))
--
2.25.1