From b19a4a35db4cd951c52e179f3340518c9e2dcc1e Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Fri, 16 Oct 2020 18:54:46 +0530
Subject: add initial support for variable definition

---
 src/Parser.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index 115203b..a7f5571 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -22,6 +22,7 @@ data Expr = List [Expr]
           | FloatLiteral Double
           | BoolLiteral Bool
           | Id String
+          | NoReturn
           deriving (Eq)
 
 -- backslash double quote escapes a quote inside strings
@@ -127,3 +128,4 @@ instance Show Expr where
     show (BoolLiteral True)  = "#t"
     show (BoolLiteral False) = "#f"
     show (Id i)              = i
+    show NoReturn            = ";;; environment extension"
-- 
cgit v1.2.3