Hi Levente,

Thank you for your reply.

That makes no sense. I can't even fathom how it works.

#inject:into:'s second argument, the block, must return the computed

value.

Currently that block returns the value assigned to base when pair first =

'e' and nil otherwise.

So, if it works correctly now, which is doubtful, then just remove the

assignments to base from the block and it should just work.

I did, it does. thx.

Fwiw, here are the tests I have for this rule ...It might make things clearer on what it is meant to accomplish.  The pattern is borrowed from some Algebraic PEG grammar I found on the net.

The purpose is to support some PHP-isms in the wikitext grammar...basically PHP version of callbacks given a pattern.

testFloat

<timeout: 5 "seconds">

"Float <-  Multiplicand  (''e'' Multiplicand)+"

| n output actor |

actor := PEGWikiMediaGeneratorTables new.

actor transcripton: false.  "disable tracing to Transcript"

n := '-2.3e-4'.

output := parser parse: 'Negation' stream: n reading actor: actor.

self assert: (output = -0.00023 ).

n := '6e2e3'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 600000.0) .

n := '2e3'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 2000) .

n := '-2.3e-4'.

output := parser parse: 'Negation' stream: n reading actor: actor.

self assert: (output = -0.00023 ).

n := '(trunc2)e(trunc-3)'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 0.002) .

n := '(trunc2)e(trunc0)'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 2) .

n := '(trunc2)e(trunc18)'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 2.0e18) .

n := '(trunc2)e(trunc19)'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 2.0e19) .

n := '6e(5-2)'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 6000.0) .

n := '(5-2)e-2'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 0.03) .

n := '6e(5-2)e-2'.

output := parser parse: 'Float' stream: n reading actor: actor.

self assert: (output = 60) .

n := '5.0e-324'.  "(Float fmin) * (Float fmax)"

output := parser parse: 'Operation' stream: n reading actor: actor.

self assert: (output = (Float fmin) ) .