Make all xt/examples-compilation.t pass

Author: taboege

doc/Language/classtut.pod6

@@ -512,7 +512,7 @@ handle default values:
             :&!callback,
             :@!dependencies,
             :$!done = False,
-            :$!ready = not @!dependencies
+            :$!ready = not @!dependencies,
         ) { }
     =end code
 

doc/Type/StrDistance.pod6

@@ -60,6 +60,7 @@ Defined as:
 
 Returns an C<After> string value.
 
+    =for code :preamble<my $str = "fold">
     my $str-dist = ($str ~~ tr/old/new/);
     say $str-dist.Str; # OUTPUT: «fnew␤»
     say ~$str-dist;    # OUTPUT: «fnew␤»