disallow all null and whitespacey ops

perl6 · Nov 17, 2012 · d38bbd0 · d38bbd0
1 parent e17ff6a
commit d38bbd0
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/CursorBase.pmc b/CursorBase.pmc
@@ -2719,6 +2719,8 @@ sub add_categorical { my $lang = shift;
         else {
             @list = $mangle;
         }
+        $lang->panic('Whitespace is not allowed in an operator') if grep { /\s/ } @list;
+        @list = () if grep { !length } @list;
         $mangle = ::mangle(@list);
         $mangle = $category . '__S_' . sprintf("%03d",$GEN++) . $mangle;