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

diff --git a/src/edwin/sources.sh b/src/edwin/sources.sh
index 20f982b6a0c459de814d6e5949e84a93747ff783..aa2c720b2723e9271786e417752f5fd9c990591c 100755 (executable)
--- 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))