From 27192345365ba50cadaf848013ea4b51431f83f5 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 5 Jun 2018 09:37:51 -0700
Subject: [PATCH] plugin tags-fix.sh: Use command-line-arguments.

---
 src/blowfish/tags-fix.sh | 2 +-
 src/gdbm/tags-fix.sh     | 2 +-
 src/mcrypt/tags-fix.sh   | 2 +-
 src/mhash/tags-fix.sh    | 2 +-
 src/pgsql/tags-fix.sh    | 2 +-
 src/x11/tags-fix.sh      | 2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/blowfish/tags-fix.sh b/src/blowfish/tags-fix.sh
index 14e5e8636..a22e6bab5 100755
--- 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 14e5e8636..a22e6bab5 100755
--- 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 14e5e8636..a22e6bab5 100755
--- 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 14e5e8636..a22e6bab5 100755
--- 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 14e5e8636..a22e6bab5 100755
--- 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 14e5e8636..a22e6bab5 100755
--- 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,")))
 
-- 
2.25.1