Clarifies example in a control environment

This closes #2871; also closes #2551 since that's been cleared up already.

doc/Type/X/Control.pod6

@@ -18,22 +18,21 @@ This allows to define custom control exceptions.
 For example, the custom C<CX::Oops> control exception we define below:
 
 =begin code
-class CX::Oops does X::Control {
+class CX::Vaya does X::Control {
     has $.message
 }
 
-sub oops ($message = 'oops') {
-    CX::Oops.new(:$message).throw
-}
-
-oops "I messed up!";
-
-CONTROL {
-    default {
-        say "Controlled { .^name }: { .message }"
+sub ea {
+    CONTROL {
+        default {
+            say "Controlled { .^name }: { .message }"
+        }
     }
+    CX::Vaya.new( message => "I messed up!" ).throw;
+
 }
-# OUTPUT: «Controlled CX::Oops: I messed up!␤»
+ea;
+# OUTPUT: «Controlled CX::Vaya: I messed up!␤»
 =end code
 
 =end pod