another ts problem

[Peter Dalgaard BSA]

> Pah! Exact same error, but in do_relop (relop.c)... Will fix.

..and the patch is this:

diff -c -r1.8.2.1 relop.c
*** /tmp/T0a005Bn       Fri Apr 30 08:03:10 1999
--- relop.c     Fri Apr 30 08:03:10 1999
***************
*** 136,146 ****
      }
  
      PROTECT(x);
-     if (xts || yts) {
-       setAttrib(x, R_TspSymbol, tsp);
-       setAttrib(x, R_ClassSymbol, class);
-       UNPROTECT(2);
-     }
      if (dims != R_NilValue) {
        setAttrib(x, R_DimSymbol, dims);
        if (xnames != R_NilValue)
--- 136,141 ----
***************
*** 154,159 ****
--- 149,159 ----
        else if (length(x) == length(ynames))
            setAttrib(x, R_NamesSymbol, ynames);
      }
+     if (xts || yts) {
+       setAttrib(x, R_TspSymbol, tsp);
+       setAttrib(x, R_ClassSymbol, class);
+       UNPROTECT(2);
+     }
  
      UNPROTECT(4);
      return x;

-- 
   O__  ---- Peter Dalgaard             Blegdamsvej 3  
  c/ /'_ --- Dept. of Biostatistics     2200 Cph. N   
 (*) \(*) -- University of Copenhagen   Denmark      Ph: (+45) 35327918
~~~~~~~~~~ - (p.dalgaard@biostat.ku.dk)             FAX: (+45) 35327907
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._