From robert_strahl@yahoo.com

# yahoo sent the first copy before I finished, arg!
# ignore first email
#
# bug commented in code

use v6;

class Int is also {
  method prime() {
  return True; # actual test algorithm removed for clarity
  }
}

# This loop works
say "Testing 1,2,3,4,5";
for 1,2,3,4,5 {
  print "$_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}
say "";

# This loop doesn't work
# Output​:
## 1 is​: prime
## 2 is​: Method 'prime' not found for invocant of class 'Integer' in Main (file src/gen_setting.pm, line 324)
#
# fwiw - calling the method with a negative int also produces this error.
# what is "class 'Integer'" ? I thought it was class "Int" in Perl 6.

say "Testing 1..5";
for 1..5 {
  print "$_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}

From @coke

On Sat Dec 19 19​:02​:49 2009, vamped wrote​:

# yahoo sent the first copy before I finished, arg!
# ignore first email
#
# bug commented in code

use v6;

class Int is also {
  method prime() {
    return True; # actual test algorithm removed for clarity
  }
}

# This loop works
say "Testing 1,2,3,4,5";
for 1,2,3,4,5 {
  print "$_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}
say "";

# This loop doesn't work
# Output​:
## 1 is​: prime
## 2 is​: Method 'prime' not found for invocant of class 'Integer' in
Main (file src/gen_setting.pm, line 324)
#
# fwiw - calling the method with a negative int also produces this
error.
# what is "class 'Integer'" ? I thought it was class "Int" in Perl 6.

say "Testing 1..5";
for 1..5 {
  print "$_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}

Here's a slightly updated code snippet that exhibit a similar problem​:

┗━$━∫ cat foo.p6
use MONKEY_TYPING;
augment class Int {
  method prime() {
  return True; # actual test algorithm removed for clarity
  }
}

say "Testing 1,2,3,4,5";
for 1,2,3,4,5 {
  print $_.WHAT;
  print " $_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}
say "Testing 1..5";
for 1..5 {
  print $_.WHAT;
  print " $_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}
┗━$━∫ ./perl6 foo.p6
Testing 1,2,3,4,5
Int() 1 is​: prime
Int() 2 is​: prime
Int() 3 is​: prime
Int() 4 is​: prime
Int() 5 is​: prime
Testing 1..5
Int() 1 is​: prime
Int() 2 is​: Method 'prime' not found for invocant of class 'Integer'
  in <anon> at line 21​:foo.p6
  in main program body at line 1

--
Will "Coke" Coleda

The RT System itself - Status changed from 'new' to 'open'

From @coke

On Sat Jul 24 15​:19​:58 2010, coke wrote​:

On Sat Dec 19 19​:02​:49 2009, vamped wrote​:

# yahoo sent the first copy before I finished, arg!
# ignore first email
#
# bug commented in code

use v6;

class Int is also {
  method prime() {
    return True; # actual test algorithm removed for clarity
  }
}

# This loop works
say "Testing 1,2,3,4,5";
for 1,2,3,4,5 {
  print "$_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}
say "";

# This loop doesn't work
# Output​:
## 1 is​: prime
## 2 is​: Method 'prime' not found for invocant of class 'Integer' in
Main (file src/gen_setting.pm, line 324)
#
# fwiw - calling the method with a negative int also produces this
error.
# what is "class 'Integer'" ? I thought it was class "Int" in Perl
6.

say "Testing 1..5";
for 1..5 {
  print "$_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}

Here's a slightly updated code snippet that exhibit a similar problem​:

┗━$━∫ cat foo.p6
use MONKEY_TYPING;
augment class Int {
method prime() {
return True; # actual test algorithm removed for clarity
}
}

say "Testing 1,2,3,4,5";
for 1,2,3,4,5 {
print $_.WHAT;
print " $_ is​: ";
if .prime { say "prime" } else { say "NOT prime" }
}
say "Testing 1..5";
for 1..5 {
print $_.WHAT;
print " $_ is​: ";
if .prime { say "prime" } else { say "NOT prime" }
}
┗━$━∫ ./perl6 foo.p6
Testing 1,2,3,4,5
Int() 1 is​: prime
Int() 2 is​: prime
Int() 3 is​: prime
Int() 4 is​: prime
Int() 5 is​: prime
Testing 1..5
Int() 1 is​: prime
Int() 2 is​: Method 'prime' not found for invocant of class 'Integer'
in <anon> at line 21​:foo.p6
in main program body at line 1

Another updated version based on current spec​:

use MONKEY_TYPING;
augment class Int {
  method prime() {
  return True; # actual test algorithm removed for clarity
  }
}
say "Testing 1,2,3,4,5";
for 1,2,3,4,5 {
  print .WHAT.gist;
  print " $_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}

say "Testing 1..5";
for 1..5 {
  print .WHAT.gist;
  print " $_ is​: ";
  if .prime { say "prime" } else { say "NOT prime" }
}

outputs​:

Testing 1,2,3,4,5
Int() 1 is​: prime
Int() 2 is​: prime
Int() 3 is​: prime
Int() 4 is​: prime
Int() 5 is​: prime
Testing 1..5
Int() 1 is​: prime
Int() 2 is​: prime
Int() 3 is​: prime
Int() 4 is​: prime
Int() 5 is​: prime

... quick, test it before the spec changes again.

--
Will "Coke" Coleda

From @moritz

Now tested in t/spec/S12-class/augment-supersede.t.

@moritz - Status changed from 'open' to 'resolved'