From b1e901b5ea18eb5b1fc985ae2d44737858afc3e2 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 18 Jan 2025 11:40:25 -0700
Subject: Complete full translation for unary operators

---
 src/modules/parser/driver.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/modules/parser/driver.scm')

diff --git a/src/modules/parser/driver.scm b/src/modules/parser/driver.scm
index f5e503e..e464a7a 100644
--- a/src/modules/parser/driver.scm
+++ b/src/modules/parser/driver.scm
@@ -27,7 +27,7 @@
 (define (expression tokens)
   (match tokens
     (((? integer? int))
-     int)
+     (list 'const int))
     (((or 'neg 'not) expr ...)
      (list 'expr (car tokens) (expression expr)))
     (('left-paren expr ... 'right-paren)
-- 
cgit v1.2.3