From 9e9bcad6fab72fe66a52c174d27fce63dcae106c Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Wed, 6 Feb 2019 14:31:14 -0800
Subject: Added underscores for numbers (e.g. 1_000, 0xDEAD_BEEF), and fixed
 some compatibility and decompiling issues.

---
 nomsu.7.peg | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'nomsu.7.peg')

diff --git a/nomsu.7.peg b/nomsu.7.peg
index 22bcd46..15f7433 100644
--- a/nomsu.7.peg
+++ b/nomsu.7.peg
@@ -180,14 +180,13 @@ number <-
     hex_integer / real_number / integer
 
 integer (Number) <-
-    (((%at_break "-")? [0-9]+)-> tonumber)
+    { (%at_break "-")? [0-9]+ (("_"+->"") [0-9]+)* }
 
 hex_integer (Number) <-
-    (((%at_break "-")? "0x" [0-9a-fA-F]+)-> tonumber)
-    {:hex: '' -> 'yes' :}
+    { (%at_break "-")? "0x" [0-9a-fA-F]+ (("_"+->"") [0-9a-fA-F]+)* }
 
 real_number (Number) <-
-    (((%at_break "-")? [0-9]+ "." [0-9]+)-> tonumber)
+    { (%at_break "-")? [0-9]+ (("_"+->"") [0-9]+)* "." [0-9]+ (("_"+->"") [0-9]+)* }
 
 
 variable (Var) <- "$" ({ident_char+} / "(" ws* (inline_action / variable) ws* ")" / {''})
-- 
cgit v1.2.3