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 d563847..b73a466 100644 (file)
--- a/src-wsl/metrics.wsl
+++ b/src-wsl/metrics.wsl
@@ -106,7 +106,7 @@ VAR< prog := < >,
        filename:="", filename2 := "",
        metrics := < >, met2 := < >,
        opened := 0,
        filename:="", filename2 := "",
        metrics := < >, met2 := < >,
        opened := 0,

-       Argv := @Argv 
+       Argv := ARGV 

 >:
 C:"First one is the script name that is being executed";
 Argv := TAIL(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 b198640..d4b7d32 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:= "",
 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);
 >:
 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 d3d0106..5086bc6 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:= "",
 
 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);
 >:
 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 5f277da..325f8ec 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:= "",
 
 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);
 >:
 C:"First one is the script name that is being executed";
 Argv := TAIL(Argv);