diff --git a/src/core.fr b/src/core.fr index 70fc9b3..b98b5f0 100644 --- a/src/core.fr +++ b/src/core.fr @@ -906,6 +906,10 @@ T{ 0 0 GN' F' 10 >NUMBER-BASED -> F 0 GN-CONSUMED }T T{ 0 0 GN' G' 10 >NUMBER-BASED -> 0 0 GN-STRING }T T{ 0 0 GN' G' MAX-BASE >NUMBER-BASED -> 10 0 GN-CONSUMED }T T{ 0 0 GN' Z' MAX-BASE >NUMBER-BASED -> 23 0 GN-CONSUMED }T +T{ 0 0 GN' f' 10 >NUMBER-BASED -> F 0 GN-CONSUMED }T +T{ 0 0 GN' g' 10 >NUMBER-BASED -> 0 0 GN-STRING }T +T{ 0 0 GN' g' MAX-BASE >NUMBER-BASED -> 10 0 GN-CONSUMED }T +T{ 0 0 GN' z' MAX-BASE >NUMBER-BASED -> 23 0 GN-CONSUMED }T : GN1 \ ( UD BASE -- UD' LEN ) UD SHOULD EQUAL UD' AND LEN SHOULD BE ZERO. BASE @ >R BASE !