Merge branch 'master' of gitosis@yap.dcc.fc.up.pt:yap-6

library/system/sys.c

@@ -205,7 +205,7 @@ sysmktime(void)
   loc.tm_hour = YAP_IntOfTerm(YAP_ARG4);
   loc.tm_min = YAP_IntOfTerm(YAP_ARG5);
   loc.tm_sec = YAP_IntOfTerm(YAP_ARG6);
-  loc.tm_isdst = daylight;
+  loc.tm_isdst = -1;
 
   if ((tim = mktime(&loc)) == (time_t)-1) {
     return YAP_Unify(YAP_ARG8, YAP_MkIntTerm(errno));

library/yap2swi/yap2swi.c

@@ -1858,11 +1858,14 @@ PL_record(term_t ts)
   return (record_t)Yap_StoreTermInDB(t, 0);
 }
 
-X_API void
+X_API int
 PL_recorded(record_t db, term_t ts)
 {
   Term t = Yap_FetchTermFromDB((DBTerm *)db);
+  if (t == 0L)
+    return FALSE;
   Yap_PutInSlot(ts,t);
+  return TRUE;
 }
 
 X_API void
@@ -1959,6 +1962,12 @@ PL_exception(qid_t q)
   }
 }
 
+X_API void
+PL_clear_exception(void)
+{
+  EX = 0L;
+}
+
 X_API int
 PL_initialise(int myargc, char **myargv)
 {