Remember last result as _

Signed-off-by: Christian Lindig <lindig@gmail.com>
lindig · Jun 11, 2024 · cdb946e · cdb946e
1 parent 544d9e4
commit cdb946e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/lexer.mll b/lib/lexer.mll
@@ -8,7 +8,7 @@
 
 let digit  = ['0'-'9']
 let digits = digit digit*
-let alpha  = ['a'-'z']
+let alpha  = ['a'-'z' '_']
 let id     = alpha (digit|alpha)*
 
 let seconds = digits  ('.' digits)?

diff --git a/lib/parser.mly b/lib/parser.mly
@@ -27,7 +27,7 @@ let lookup id = Hashtbl.find_opt t id |> function
 %%
 
 main:
-      expr EOL              { Some $1 }
+      expr EOL              { add "_" $1; Some $1 }
     | stmt EOL              { None    }
 ;