Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Implement term:<proceed>, Any.{isa,can,does}, we now pass given.t

  • Loading branch information...
commit 9ba82842347e328f3dbe5b971ad357752878e7f0 1 parent dbad4c4
Stefan O'Rear authored
8 lib/CORE.setting
View
@@ -33,6 +33,9 @@ my class Mu {
}
my class Any is Mu {
+ method isa(\$other) { self.^isa($other) }
+ method does(\$other) { self.^does($other) }
+ method can($method) { self.^can($method) }
method flat() { @(self) }
method Numeric() {
die "Cannot use value like $.typename as a number" if defined(self);
@@ -64,7 +67,7 @@ my class Any is Mu {
method keys() {
my $i = 0;
- gather for @(self) -> $value {
+ gather for @(self) -> $value { #OK not used
my $key = $i++;
take $key;
}
@@ -688,7 +691,8 @@ sub return(\|@pcl) is return-pass { Q:CgOp {
sub succeed(\|@pcl) {
Q:CgOp { (control 6 (null frame) (int -1) (null str) {@pcl.unwrap-single}) }
}
-sub proceed() {
+sub proceed() { proceed }
+sub term:<proceed>() {
Q:CgOp { (control 7 (null frame) (int -1) (null str) {()}) }
}
sub nextsame() {
1  src/NieczaPassSimplifier.pm6
View
@@ -60,6 +60,7 @@ our %funcs = (
'&last' => do_nullary_control(2),
'&next' => do_nullary_control(1),
'&proceed' => do_nullary_control(7),
+ '&term:<proceed>' => do_nullary_control(7),
'&redo' => do_nullary_control(3),
'&infix:<&>' => do_makejunction(0),
1  t/spectest.data
View
@@ -69,6 +69,7 @@ S04-statements/for.t
S04-statements/for-scope.t
S04-statements/for_with_only_one_item.t
S04-statements/gather.t
+S04-statements/given.t
S04-statements/if.t
S04-statements/last.t
S04-statements/loop.t
Please sign in to comment.
Something went wrong with that request. Please try again.