fix assignment to list

1 files changed, 15 insertions, 10 deletions

diff --git a/js/Misc/fortran_block.js b/js/Misc/fortran_block.js
index 5e0f951a..bd4d11c7 100644
--- a/js/Misc/fortran_block.js
+++ b/js/Misc/fortran_block.js
@@ -15,8 +15,8 @@ function fortran_block() {
         this.model.firing = [];
         this.model.dep_ut = [true,false];
         this.funam = "forty";
-        label = list([[sci2exp(this.model.in1)],[sci2exp(this.model.out)],[strcat(sci2exp(this.model.rpar))],[this.funam]],list([]));
-        gr_i = [];
+        var label = list([[sci2exp(this.model.in1)],[sci2exp(this.model.out)],[strcat(sci2exp(this.model.rpar))],[this.funam]],list([]));
+        var gr_i = [];
         this.x = standard_define([4,2],this.model,label,gr_i);
         return new BasicBlock(this.x);
     }
@@ -40,8 +40,8 @@ function fortran_block() {
         this.lab = arguments[0]["lab"]
         this.x = arg1;
         this.model = arg1.model;
-        graphics = arg1.graphics;
-        label = graphics.exprs;
+        var graphics = arg1.graphics;
+        var label = graphics.exprs;
         while (true) {
             [ok,this.i,this.o,this.rpar,this.funam,this.lab] = scicos_getvalue("Set fortran_block parameters",["input ports sizes","output port sizes","System parameters vector","function name"],list("vec",-1,"vec",-1,"vec",-1,"str",-1),label[1-1]);
             if (!ok) {
@@ -53,18 +53,23 @@ function fortran_block() {
             label[1-1] = this.lab;
             this.rpar = this.rpar.slice();
             this.i = int(this.i.slice());
-            ni = size(this.i,1);
+            var ni = size(this.i,1);
             this.o = int(this.o.slice());
-            no = size(this.o,1);
-            tt = label[2-1];
+            var no = size(this.o,1);
+            var tt = label[2-1];
             if (this.model.sim[1-1]!=this.funam||size(this.model.in1,"*")!=size(this.i,"*")||size(this.model.out,"*")!=size(this.o,"*")) {
-                tt = [];
+                var tt = [];
             }
-            [ok,tt] = FORTR(this.funam,tt,this.i,this.o);
+            var tmpvar0 = FORTR(this.funam,tt,this.i,this.o)
+            var ok = tmpvar0[0]
+            var tt = tmpvar0[1];
             if (!ok) {
                 break;
             }
-            [this.model,graphics,ok] = check_io(this.model,graphics,this.i,this.o,[],[]);
+            var tmpvar1 = check_io(this.model,graphics,this.i,this.o,[],[])
+            this.model = tmpvar1[0]
+            var graphics = tmpvar1[1]
+            var ok = tmpvar1[2];
             if (ok) {
                 this.model.sim[1] = new ScilabString([this.funam]);
                 this.model.rpar = this.rpar;