From d14b1cc4848df4060db2d4ece79a76657b980516 Mon Sep 17 00:00:00 2001 From: Matt Birkholz 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