update dovector, vector-each.

diff --git a/modules/ml-texp.cc b/modules/ml-texp.cc
index 49cacab..e903c1e 100644 (file)
--- a/modules/ml-texp.cc
+++ b/modules/ml-texp.cc
@@ -420,6 +420,8 @@ MNode*  ml_vector_each (MNode* cell, MlEnv* mlenv) {
        a = list ();
        if (isVector (a)) {
            llv.push_back (a);
+       } else if (isNil (a)) {
+           llv.push_back (NULL);
        } else {
            throw (uErrorWrongType);
        }
@@ -435,6 +437,8 @@ MNode*  ml_vector_each (MNode* cell, MlEnv* mlenv) {
                MNode*  e = a->car ();
                if (isVector (e)) {
                    llv.push_back (e);
+               } else if (isNil (e)) {
+                   llv.push_back (NULL);
                } else {
                    throw (uErrorWrongType);
                }

diff --git a/wiki/wikicmd.cc b/wiki/wikicmd.cc
index 8224864..6849164 100644 (file)
--- a/wiki/wikicmd.cc
+++ b/wiki/wikicmd.cc
@@ -219,6 +219,7 @@ void  wc_dovector (WikiLine* wl, WikiFormat* wiki) {
                lv.push_back (s);
                lvv.push_back (new MNodePtr);
                lvv.back () = t;
+           } else if (isNil (t)) {
            } else {
                wiki->errorMsg.append (CharConst ("$dovector: bad value type.\n"));
            }