plugin tags-fix.sh: Use command-line-arguments.

diff --git a/src/blowfish/tags-fix.sh b/src/blowfish/tags-fix.sh
index 14e5e863648ba89d391e72a5b5edb44d4ec379ce..a22e6bab5baf27f1930aad2767cfe7460332d75d 100755 (executable)
--- a/src/blowfish/tags-fix.sh
+++ b/src/blowfish/tags-fix.sh
@@ -6,7 +6,7 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode -- ${1+"$@"} <<\EOF
-(let ((name (car (command-line))))
+(let ((name (car (command-line-arguments))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 

diff --git a/src/gdbm/tags-fix.sh b/src/gdbm/tags-fix.sh
index 14e5e863648ba89d391e72a5b5edb44d4ec379ce..a22e6bab5baf27f1930aad2767cfe7460332d75d 100755 (executable)
--- a/src/gdbm/tags-fix.sh
+++ b/src/gdbm/tags-fix.sh
@@ -6,7 +6,7 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode -- ${1+"$@"} <<\EOF
-(let ((name (car (command-line))))
+(let ((name (car (command-line-arguments))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 

diff --git a/src/mcrypt/tags-fix.sh b/src/mcrypt/tags-fix.sh
index 14e5e863648ba89d391e72a5b5edb44d4ec379ce..a22e6bab5baf27f1930aad2767cfe7460332d75d 100755 (executable)
--- a/src/mcrypt/tags-fix.sh
+++ b/src/mcrypt/tags-fix.sh
@@ -6,7 +6,7 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode -- ${1+"$@"} <<\EOF
-(let ((name (car (command-line))))
+(let ((name (car (command-line-arguments))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 

diff --git a/src/mhash/tags-fix.sh b/src/mhash/tags-fix.sh
index 14e5e863648ba89d391e72a5b5edb44d4ec379ce..a22e6bab5baf27f1930aad2767cfe7460332d75d 100755 (executable)
--- a/src/mhash/tags-fix.sh
+++ b/src/mhash/tags-fix.sh
@@ -6,7 +6,7 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode -- ${1+"$@"} <<\EOF
-(let ((name (car (command-line))))
+(let ((name (car (command-line-arguments))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 

diff --git a/src/pgsql/tags-fix.sh b/src/pgsql/tags-fix.sh
index 14e5e863648ba89d391e72a5b5edb44d4ec379ce..a22e6bab5baf27f1930aad2767cfe7460332d75d 100755 (executable)
--- a/src/pgsql/tags-fix.sh
+++ b/src/pgsql/tags-fix.sh
@@ -6,7 +6,7 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode -- ${1+"$@"} <<\EOF
-(let ((name (car (command-line))))
+(let ((name (car (command-line-arguments))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 

diff --git a/src/x11/tags-fix.sh b/src/x11/tags-fix.sh
index 14e5e863648ba89d391e72a5b5edb44d4ec379ce..a22e6bab5baf27f1930aad2767cfe7460332d75d 100755 (executable)
--- a/src/x11/tags-fix.sh
+++ b/src/x11/tags-fix.sh
@@ -6,7 +6,7 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode -- ${1+"$@"} <<\EOF
-(let ((name (car (command-line))))
+(let ((name (car (command-line-arguments))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))