give TimToday++ his Mu.not

rakudo · Sep 28, 2010 · bd836a4 · bd836a4
1 parent 0bf6cbe
commit bd836a4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1447,7 +1447,7 @@ token setup_quotepairs { '' }
 token cleanup_modifiers { '' }
 
 token quote:sym<s> {
-    <sym> >>
+    <sym> (s)? >>
     [ <quotepair> <.ws> ]*
     :my @*REGEX_ADVERBS;
     { @*REGEX_ADVERBS := $<quotepair>; }

diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -15,6 +15,7 @@ augment class Mu {
     }
 
     multi method so() { self.Bool }
+    multi method not() { self ?? False !! True }
 
     multi method perl() {
         my sub typename(Mu $x) { pir::typeof__SP($x) };