Allow multiple unspaces in sequence

perl6 · Aug 26, 2013 · d699c5f · d699c5f
1 parent 06636e4
commit d699c5f
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -637,13 +637,15 @@ token ws {
 }
 
 token unsp {
-    \\ <?before [\s|'#'] >
-    :dba('unspace')
     [
-    | <.vws>
-    | <.unv>
-    | $ { $¢.moreinput }
-    ]*
+        \\ <?before [\s|'#'] >
+        :dba('unspace')
+        [
+        | <.vws>
+        | <.unv>
+        | $ { $¢.moreinput }
+        ]*
+    ]+
 }
 
 token vws {