From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 5 Jun 2018 16:37:51 +0000 (-0700)
Subject: plugin tags-fix.sh: Use command-line-arguments.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=27192345365ba50cadaf848013ea4b51431f83f5;p=mit-scheme.git

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

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