bug fix.

diff --git a/modules/ml-time.cc b/modules/ml-time.cc
index 33ac96d..210fa42 100644 (file)
--- a/modules/ml-time.cc
+++ b/modules/ml-time.cc
@@ -14,50 +14,35 @@
 
 */
 static MNode*  timeval6 (struct tm* v) {
-    MNode*  ans;
-
-    ans = new MNode;
-    ans->set_car (newMNode_num (v->tm_year + 1900));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_mon + 1));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_mday));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_hour));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_min));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_sec));
-
-    return ans;
+    MNodeList  ans;
+
+    ans.append (newMNode_num (v->tm_year + 1900));
+    ans.append (newMNode_num (v->tm_mon + 1));
+    ans.append (newMNode_num (v->tm_mday));
+    ans.append (newMNode_num (v->tm_hour));
+    ans.append (newMNode_num (v->tm_min));
+    ans.append (newMNode_num (v->tm_sec));
+
+    return ans.release ();
 }
 
 static MNode*  dateval4 (struct tm* v) {
-    MNode*  ans;
-
-    ans = new MNode;
-    ans->set_car (newMNode_num (v->tm_year + 1900));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_mon + 1));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_mday));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_wday));
-
-    return ans;
+    MNodeList  ans;
+
+    ans.append (newMNode_num (v->tm_year + 1900));
+    ans.append (newMNode_num (v->tm_mon + 1));
+    ans.append (newMNode_num (v->tm_mday));
+    ans.append (newMNode_num (v->tm_wday));
+    return ans.release ();
 }
 
 static MNode*  timeval3 (struct tm* v) {
-    MNode*  ans;
-
-    ans = new MNode;
-    ans->set_car (newMNode_num (v->tm_hour));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_min));
-    newMNodeCdr (ans);
-    ans->set_car (newMNode_num (v->tm_sec));
+    MNodeList  ans;
 
-    return ans;
+    ans.append (newMNode_num (v->tm_hour));
+    ans.append (newMNode_num (v->tm_min));
+    ans.append (newMNode_num (v->tm_sec));
+    return ans.release ();
 }
 
 /*DOC: