Changeset 21223

Show
Ignore:
Timestamp:
07/04/08 18:55:15 (3 months ago)
Author:
lwall
Message:

[STD] capture dec_number coefficient to distinguish from the exponent

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/STD.pm

    r21219 r21223  
    16051605token dec_number { 
    16061606    [ 
    1607     |            '.' \d+[_\d+]* <escale>? 
    1608     | \d+[_\d+]* '.' \d+[_\d+]* <escale>? 
    1609     | \d+[_\d+]*                <escale> 
     1607    | $<coeff> = [           '.' \d+[_\d+]* ] <escale>? 
     1608    | $<coeff> = [\d+[_\d+]* '.' \d+[_\d+]* ] <escale>? 
     1609    | $<coeff> = [\d+[_\d+]*                ] <escale> 
    16101610    ] 
    16111611    {*}