@@ -3,17 +3,21 @@

       from="numeric", to="numeric", by="numeric", length.out="integer"),

     contains="Producer",

     methods = list(

+      initialize = function(..., length.out) {

+          ## increment length.out to avoid repeated addition

+          callSuper(..., length.out=as.integer(length.out) + 1L)

+      },

       yield = function() {

           if ((from - to) * by > 0)

-              return(integer())

-          s <- seq(from, by=by, length.out=length.out + 1L)

-          .self$from <- s[length(s)]

+              return(numeric())

+          s <- seq(from, by=by, length.out=length.out)

+          from <<- as.numeric(s[length(s)])

           s <- s[-length(s)]

           s[s <= to]

       },

       show = function() {

           cat("from:", from, "\nto:", to, "\nby:", by,

-              "\nlength.out:", length.out, "\n")

+              "\nlength.out:", length.out - 1L, "\n")

       }))

 Seq <-