Displaying 5 results from an estimated 5 matches for "r75945".
Did you mean:
375945
2019 Jan 03
2
Compiler + stopifnot bug
Hi,
I found the following issue in r-devel (2019-01-02 r75945):
`foo<-` <- function(x, value) {
bar(x) <- value * x
x
}
`bar<-` <- function(x, value) {
stopifnot(all(value / x == 1))
x + value
}
`foo<-` <- compiler::cmpfun(`foo<-`)
`bar<-` <- compiler::cmpfun(`bar<-`)
x <- c(2, 2)
foo(x) <- 1
x # should be c(...
2019 Jan 04
2
Compiler + stopifnot bug
...> I see this too; by bisection, it seems to have first appeared in r72943.
Sorry, that was a typo. I meant r75943.
Duncan Murdoch
>
> Duncan Murdoch
>
> On 03/01/2019 2:18 p.m., I?aki Ucar wrote:
>> Hi,
>>
>> I found the following issue in r-devel (2019-01-02 r75945):
>>
>> `foo<-` <- function(x, value) {
>> bar(x) <- value * x
>> x
>> }
>>
>> `bar<-` <- function(x, value) {
>> stopifnot(all(value / x == 1))
>> x + value
>> }
>>
>> `foo<-` <- compiler::...
2019 Jan 04
2
Compiler + stopifnot bug
...red in r72943.
>
> Sorry, that was a typo. I meant r75943.
>
> Duncan Murdoch
>
>>
>> Duncan Murdoch
>>
>>> On 03/01/2019 2:18 p.m., I?aki Ucar wrote:
>>> Hi,
>>>
>>> I found the following issue in r-devel (2019-01-02 r75945):
>>>
>>> `foo<-` <- function(x, value) {
>>> bar(x) <- value * x
>>> x
>>> }
>>>
>>> `bar<-` <- function(x, value) {
>>> stopifnot(all(value / x == 1))
>>> x + value
>>> }
>>...
2019 Jan 04
0
Compiler + stopifnot bug
...have first appeared in r72943.
Sorry, that was a typo. I meant r75943.
Duncan Murdoch
>
> Duncan Murdoch
>
> On 03/01/2019 2:18 p.m., I?aki Ucar wrote:
>> Hi,
>>
>> I found the following issue in r-devel (2019-01-02 r75945):
>>
>> `foo<-` <- function(x, value) {
>> bar(x) <- value * x
>> x
>> }
>>
>> `bar<-` <- function(x, value) {
>> stopifnot(all(value / x == 1))
>> x + value
>> }
&...
2019 Jan 04
0
Compiler + stopifnot bug
...that was a typo. I meant r75943.
>>
>> Duncan Murdoch
>>
>>>
>>> Duncan Murdoch
>>>
>>>> On 03/01/2019 2:18 p.m., I?aki Ucar wrote:
>>>> Hi,
>>>>
>>>> I found the following issue in r-devel (2019-01-02 r75945):
>>>>
>>>> `foo<-` <- function(x, value) {
>>>> bar(x) <- value * x
>>>> x
>>>> }
>>>>
>>>> `bar<-` <- function(x, value) {
>>>> stopifnot(all(value / x == 1))
>>>>...