diff options
Diffstat (limited to 'compiler/standardClient.ey')
| -rw-r--r-- | compiler/standardClient.ey | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey index 9cbc82b..9854654 100644 --- a/compiler/standardClient.ey +++ b/compiler/standardClient.ey @@ -141,8 +141,9 @@ empty ==?a [ { ^( } { - tail parse currentCapture capture =a + currentCapture ==thisCapture currentCapture 1 add =currentCapture + tail parse thisCapture capture =a ^) not { ") expected" die } rep tail } { ^[ } { @@ -1085,7 +1086,7 @@ { .value base10decode } /TOKINT defvd { .value "^(\\d+)(\\.(\\d*))?([eE](-)?(\\d+))?$" regex not { "Not in fact a float" die } rep - ==m1 ==m2 -- ==eS ==e -- + ==m1 -- ==m2 -- ==eS ==e 0 FLOAT ==m1f m1 { zero sub m1f 10 FLOAT mul add =m1f } each |