bug fix.

diff --git a/modules/ml-struct.cc b/modules/ml-struct.cc
index 414edc8..26af869 100644 (file)
--- a/modules/ml-struct.cc
+++ b/modules/ml-struct.cc
@@ -967,7 +967,7 @@ MNode*  ml_mapcar (MNode* cell, MlEnv* mlenv) {
     if (! arg)
        throw (uErrorWrongNumber);
     fn = eval (arg->car (), mlenv);
-    nextNode (arg);
+    nextNodeNonNil (arg);
     list = eval (arg->car (), mlenv);
     nextNode (arg);
     if (arg)