Permalink
Browse files

[common] Mark the various packages in the setting as lexical ones.

  • Loading branch information...
1 parent 3682233 commit 2348cc10fe52dfdcecd2a9c4d2f8eda74d9df8b0 @jnthn committed Nov 6, 2010
Showing with 11 additions and 11 deletions.
  1. +11 −11 common/NQP/NQPSetting.pm
View
@@ -1,4 +1,4 @@
-knowhow NQPStr is repr('P6str') {
+my knowhow NQPStr is repr('P6str') {
method new() {
nqp::instance_of(self.WHAT);
}
@@ -26,7 +26,7 @@ knowhow NQPStr is repr('P6str') {
}
}
-knowhow NQPInt is repr('P6int') {
+my knowhow NQPInt is repr('P6int') {
method new() {
nqp::instance_of(self.WHAT);
}
@@ -53,7 +53,7 @@ knowhow NQPInt is repr('P6int') {
}
}
-knowhow NQPNum is repr('P6num') {
+my knowhow NQPNum is repr('P6num') {
method new() {
nqp::instance_of(self.WHAT);
}
@@ -81,11 +81,11 @@ knowhow NQPNum is repr('P6num') {
}
# XXX Bad hack, we'll replace this later.
-knowhow Any {
+my knowhow Any {
method defined() { 0 }
}
-knowhow NQPList is repr('P6list') {
+my knowhow NQPList is repr('P6list') {
method new() {
nqp::instance_of(self.WHAT)
}
@@ -103,7 +103,7 @@ knowhow NQPList is repr('P6list') {
}
}
-knowhow NQPArray is repr('P6list') {
+my knowhow NQPArray is repr('P6list') {
method new() {
nqp::instance_of(self.WHAT)
}
@@ -136,7 +136,7 @@ knowhow NQPArray is repr('P6list') {
}
}
-knowhow NQPHash is repr('P6mapping') {
+my knowhow NQPHash is repr('P6mapping') {
method new() {
nqp::instance_of(self.WHAT)
}
@@ -157,7 +157,7 @@ knowhow NQPHash is repr('P6mapping') {
}
}
-knowhow NQPCode is repr('RakudoCodeRef') {
+my knowhow NQPCode is repr('RakudoCodeRef') {
method leave($with) {
nqp::leave_block(self, $with)
}
@@ -274,7 +274,7 @@ sub &infix:<~>($x, $y) {
}
# A basic, fairly bare-bones exception object.
-knowhow NQPException {
+my knowhow NQPException {
has $!message;
has $!resumable;
@@ -323,7 +323,7 @@ sub ok($check, $diag?) {
}
# Here comes the start of a heavily under construction ClassHOW.
-knowhow NQPClassHOW {
+my knowhow NQPClassHOW {
##
## Attributes
##
@@ -571,7 +571,7 @@ knowhow NQPClassHOW {
}
# A simple attribute meta-object.
-knowhow NQPAttribute {
+my knowhow NQPAttribute {
has $!name;
method new(:$name) {
my $obj := nqp::instance_of(self);

0 comments on commit 2348cc1

Please sign in to comment.