Expansion of complex expressions into set of instructions

1 files changed, 8 insertions, 9 deletions

diff --git a/src/modules/parser/parser.scm b/src/modules/parser/parser.scm
index fa9202d..cab690c 100644
--- a/src/modules/parser/parser.scm
+++ b/src/modules/parser/parser.scm
@@ -26,12 +26,11 @@
     (_ (die))))
 
 (define (p-expr tokens)
-  (make-expr
-   (match tokens
-     (((? integer? int))
-      (make-const int))
-     (((or 'sub 'complement) expr ...)
-      (make-unary (car tokens) (p-expr expr)))
-     (('left-paren expr ... 'right-paren)
-      (p-expr expr))
-     (_ (die)))))
+  (match tokens
+    (((? integer? int))
+     (make-const int))
+    (((or 'sub 'complement) expr ...)
+     (make-unary (car tokens) (p-expr expr)))
+    (('left-paren expr ... 'right-paren)
+     (p-expr expr))
+    (_ (die))))