wsl scripts, new ARGV handling

FermaT has changed @Argv to ARGV for better compatibility
with Scheme implementations. Therefore a change was
needed in the scripts that use command line arguments.

diff --git a/src-wsl/metrics.wsl b/src-wsl/metrics.wsl
index d5638474a05b127cafec5d7f584be28c4bbda00c..b73a4663e5b4a7f8e7d73087f603a71ec06ebf0c 100644 (file)
--- a/src-wsl/metrics.wsl
+++ b/src-wsl/metrics.wsl
@@ -106,7 +106,7 @@ VAR< prog := < >,
        filename:="", filename2 := "",
        metrics := < >, met2 := < >,
        opened := 0,
-       Argv := @Argv 
+       Argv := ARGV 
 >:
 C:"First one is the script name that is being executed";
 Argv := TAIL(Argv);

diff --git a/src-wsl/transf-exp.wsl b/src-wsl/transf-exp.wsl
index b1986407cd25ded67dd3046ef1fb86897c5e588b..d4b7d32d1a7a0ef0441316293500a04edc9b7a38 100755 (executable)
--- a/src-wsl/transf-exp.wsl
+++ b/src-wsl/transf-exp.wsl
@@ -182,7 +182,7 @@ END;
 C:"Main program - processes the arguments";
 VAR< prog := < >, inifilename := "transf.ini",
        filename:="", file := "", inifile:= "",
-       Argv := @Argv
+       Argv := ARGV
 >:
 C:"First one is the script name that is being executed";
 Argv := TAIL(Argv);

diff --git a/src-wsl/transf-min.wsl b/src-wsl/transf-min.wsl
index d3d0106b119cdcc99b496f1dcb6f93d5101ccfd1..5086bc6ee6aa62cd35e17bdf12f9e6e26ea9a208 100755 (executable)
--- a/src-wsl/transf-min.wsl
+++ b/src-wsl/transf-min.wsl
@@ -123,7 +123,7 @@ END;
 
 VAR< prog := < >, inifilename := "transf.ini",
        filename:="", file := "", inifile:= "",
-       Argv := @Argv
+       Argv := ARGV
 >:
 C:"First one is the script name that is being executed";
 Argv := TAIL(Argv);

diff --git a/src-wsl/transf-stack.wsl b/src-wsl/transf-stack.wsl
index 5f277da6aadba094dfc09e78d3401944d9e4da81..325f8ec9b0c4893749f0a09a8c2e1442445e7896 100755 (executable)
--- a/src-wsl/transf-stack.wsl
+++ b/src-wsl/transf-stack.wsl
@@ -113,7 +113,7 @@ END;
 
 VAR< prog := < >, inifilename := "transf.ini", 
        filename:="", file := "", inifile:= "",
-       Argv := @Argv 
+       Argv := ARGV 
 >:
 C:"First one is the script name that is being executed";
 Argv := TAIL(Argv);