Implement [expr]'s bitwise not.

partcl · Jul 1, 2010 · 0bd0fb9 · 0bd0fb9
1 parent 84cc2b4
commit 0bd0fb9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/src/Partcl.pir b/src/Partcl.pir
@@ -1,3 +1,4 @@
+.loadlib 'bit_ops'
 .loadlib 'io_ops'
 
 ## XXX add cheats to String & Integer to provide 'getList'.

diff --git a/src/Partcl/Grammar.pm b/src/Partcl/Grammar.pm
@@ -147,6 +147,7 @@ token term:sym<[ ]> { '[' ~ ']' <script> }
 token term:sym<" "> { '"' <quoted_atom>* '"' }
 
 token prefix:sym<!> { <sym> <O('%unary, :pirop<not>')> }
+token prefix:sym<~> { <sym> <O('%unary, :pirop<bnot>')> }
 
 token infix:sym<*> { <sym> <O('%multiplicative, :pirop<mul>')> }
 token infix:sym</> { <sym> <O('%multiplicative, :pirop<div>')> }