From 55c00566b0c4870d4c4409ab3e93aacf74f8d081 Mon Sep 17 00:00:00 2001
From: Lizzy Hunt <lizzy.hunt@usu.edu>
Date: Wed, 28 Feb 2024 15:06:00 -0700
Subject: identity function, repl upgrade

---
 src/parser/parser.ts | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/parser/parser.ts')

diff --git a/src/parser/parser.ts b/src/parser/parser.ts
index 500a763..b196866 100644
--- a/src/parser/parser.ts
+++ b/src/parser/parser.ts
@@ -1716,7 +1716,12 @@ peg$parseApplicationExpression() {
           s4 = null;
         }
 // @ts-ignore
-        s5 = peg$parseValue();
+        s5 = peg$parseLabelStatement();
+// @ts-ignore
+        if (s5 === peg$FAILED) {
+// @ts-ignore
+          s5 = peg$parseVarStatement();
+        }
 // @ts-ignore
         if (s5 !== peg$FAILED) {
 // @ts-ignore
@@ -5337,7 +5342,7 @@ export type SwitchExpression = {
   switch: { switchIndex: Value; continuations: ContinuationList };
 };
 export type ApplicationExpression = {
-  application: { fn: Value; args: ValueList };
+  application: { fn: LabelStatement | VarStatement; args: ValueList };
 };
 export type FixBinding = [
   LPAREN,
-- 
cgit v1.2.3-70-g09d2