Small fixes to restore self-compilation

sorear · Dec 20, 2011 · 6ff0fee · 6ff0fee
1 parent 64301c7
commit 6ff0fee
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/docs/TODO.S05 b/docs/TODO.S05
@@ -27,7 +27,6 @@ All line numbers are relative to c4882a67.  Also, deliberate discrepencies.)
 (1507) No support for indirect <::($name)> calls
        Also, nice fossil.
 (1585) <[ z..a ]> not treated as compile error DISCUSS
-(1634) No Unicode properties
 (1679) No <.>
 (1718) No <?same>, <?at($pos)>
 (1733) <?after> is incomplete

diff --git a/src/NieczaActions.pm6 b/src/NieczaActions.pm6
@@ -193,7 +193,7 @@ method charspec($/) {
     if $<charnames> { make $<charnames>.ast }
     else {
         my $str = ~$/;
-        if $str ~~ /^\d/ {
+        if do { my $/; $str ~~ /^\d/ } {
             make chr(+$str);
         } else {
             make chr(ord($str) +& 31);
@@ -1166,7 +1166,7 @@ method process_nibble($/, @bits, $prefix?) {
         if $ast !~~ Op && defined($prefix) && $prefix ne "" {
             my $start_nl = !$n.from || "\r\n".index(
                 substr($n.orig, $n.from-1, 1)).defined;
-            $ast = $ast.split(/ ^^ [ <?{ $start_nl }> || <?after <[\r\n]> > ]
+            $ast = $ast.split(/ ^^ [ <?{ $start_nl }> || <?after <[\x0A\x0D]> > ]
                 <before \h>[ $prefix || \h+ ]/).join("");
         }