Author: particle
Date: Wed Apr 26 10:44:41 2006
New Revision: 12437
Modified:
trunk/languages/perl6/lib/grammar_optok.pge
Log:
[perl6] partial reversion
~ reenable ops: sleep abs
Modified: trunk/languages/perl6/lib/grammar_optok.pge
==============================================================================
--- trunk/languages/perl6/lib/grammar_optok.pge (original)
+++ trunk/languages/perl6/lib/grammar_optok.pge Wed Apr 26 10:44:41 2006
@@ -201,6 +201,15 @@
is nullterm
{ ... }
+proto 'prefix:sleep' is equiv('rand')
+ is nullterm
+ is pir(" $N0 = %0\n sleep $N0")
+ { ... }
+
+proto 'prefix:abs' is equiv('rand')
+ is nullterm
+ is pir(" %r = abs %0")
+ { ... }
## nonchaining binary
