disallow all null and whitespacey ops

TimToady · TimToady · commit d38bbd02c17e · 2012-11-17T12:16:18.000-08:00
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;
 

Original file line number	Diff line number	Diff line change
`@@ -2719,6 +2719,8 @@ sub add_categorical { my $lang = shift;`
`2719`	`2719`	`else {`
`2720`	`2720`	`@list = $mangle;`
`2721`	`2721`	`}`
	`2722`	`+ $lang->panic('Whitespace is not allowed in an operator') if grep { /\s/ } @list;`
	`2723`	`+ @list = () if grep { !length } @list;`
`2722`	`2724`	`$mangle = ::mangle(@list);`
`2723`	`2725`	`$mangle = $category . '__S_' . sprintf("%03d",$GEN++) . $mangle;`
`2724`	`2726`