bug fix.

diff --git a/modules/ml-variable.cc b/modules/ml-variable.cc
index ca355e6..4696c3c 100644 (file)
--- a/modules/ml-variable.cc
+++ b/modules/ml-variable.cc
@@ -135,6 +135,7 @@ MNode*  ml_setarray (MNode* cell, MlEnv* mlenv) {
            throw (ustring (CharConst ("wrong type of parameter")));
        }
     }
+    return mlenv->retval = ans ();
 }
 
 /*DOC: