apply $*HAS_SELF context to self itself, duh...

perl6 · May 12, 2011 · e9571cb · e9571cb
1 parent 4d51d3e
commit e9571cb
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -3070,8 +3070,11 @@ grammar P6 is STD {
     token term:sym<now>
         { <sym> » <O(|%term)> }
 
-    token term:sym<self>
-        { <sym> » <O(|%term)> }
+    token term:sym<self> {
+	<sym> »
+	{ $*HAS_SELF || $¢.sorry("'self' used where no object is available") }
+	<O(|%term)>
+    }
 
     token term:sym<defer>
         { <sym> » <O(|%term)> }