From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 2 Oct 2018 01:21:26 +0000 (-0700)
Subject: edwin: Fix autogen.sh (sources.sh) to work with 9.2.
X-Git-Tag: mit-scheme-pucked-gtk-0.9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=24906d9dd8012c87c79e407b5a6fcc46f185f3f3;p=mit-scheme.git

edwin: Fix autogen.sh (sources.sh) to work with 9.2.
---

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))