Author: bernhard
Date: Sun May 13 02:45:58 2007
New Revision: 18520
Modified:
trunk/languages/lisp/lisp.pir
Log:
[languages/lisp]
Double quotes were eating the '\' of two Perl6 regexes.
Modified: trunk/languages/lisp/lisp.pir
==============================================================================
--- trunk/languages/lisp/lisp.pir (original)
+++ trunk/languages/lisp/lisp.pir Sun May 13 02:45:58 2007
@@ -29,11 +29,11 @@
p6rule = compreg "PGE::P6Regex"
.local pmc is_integer
- is_integer = p6rule( "^<[+\-]>?\d+<'.'>?$" )
+ is_integer = p6rule( '^<[+\-]>?\d+\.?$' )
set_global 'is_integer', is_integer
.local pmc is_float
- is_float = p6rule( "^<[+-]>?\d+<'.'>\d+$" )
+ is_float = p6rule( '^<[+\-]>?\d+\.\d+$' )
set_global 'is_float', is_float
.local pmc is_qualified
