From 4fd4c8a4b69464bf1ac74af920175308656e6f6b Mon Sep 17 00:00:00 2001
From: Tan Kian-ting <chenjt30@gmail.com>
Date: Sat, 30 Sep 2023 12:20:38 +0800
Subject: [PATCH] fix parsing bug

---
 src/index.js | 10 ++++++++--
 src/index.ts | 12 +++++++++---
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/src/index.js b/src/index.js
index 23f1346..c424e5b 100644
--- a/src/index.js
+++ b/src/index.js
@@ -237,8 +237,14 @@ let circumfix = (f, signal) => (x) => {
         console.log("$$$" + repr(a.value.ast));
         let inner = a.value.ast[a.value.ast.length - 2];
         var ast_middle;
+        // the list should not be (%list) (%apply) (%lambda) etc.
         if (Array.isArray(inner)) {
-            ast_middle = inner;
+            if ('text' in inner[0] && (inner[0].text.slice(0, 1) != "%")) {
+                ast_middle = inner;
+            }
+            else {
+                ast_middle = [inner];
+            }
         }
         else {
             ast_middle = [inner];
@@ -379,7 +385,7 @@ let expr = orDo(expr1, expr2);
 let tokens = tk.tokenize("1");
 let tokens2 = tk.tokenize("1(2)");
 let tokens3 = tk.tokenize("1(2)(3)");
-let tokens4 = tk.tokenize("2()(4)");
+let tokens4 = tk.tokenize("2()(4)(5,6)(7,8,9,10)");
 //let tokens = tk.tokenize("(4-(3/4))");
 //tk.tokenize(argv[2]);
 let tokensFiltered = tokens4.filter((x) => {
diff --git a/src/index.ts b/src/index.ts
index 3bf281f..46c4a72 100644
--- a/src/index.ts
+++ b/src/index.ts
@@ -250,13 +250,19 @@ let midfix = (f : Function, signal? : string) => (x : TokenMatcheePair)=>{
 }
 
 let circumfix = (f : Function, signal? : string) => (x : TokenMatcheePair)=>{
-    var a = f(x);
+    var a : tk.Maybe<TokenMatcheePair> = f(x);
     if (a._tag == "Some"){
         console.log("$$$"+repr(a.value.ast));
         let inner = a.value.ast[a.value.ast.length-2];
         var ast_middle : tkTree[];
+        // the list should not be (%list) (%apply) (%lambda) etc.
         if (Array.isArray(inner)){
-            ast_middle = inner;
+            if ('text' in inner[0]  && (inner[0].text.slice(0,1) != "%")){
+                ast_middle = inner;
+            }
+            else{
+                ast_middle = [inner];
+            }
         }
         else{
             ast_middle = [inner];
@@ -442,7 +448,7 @@ let expr = orDo(expr1, expr2);
 let tokens = tk.tokenize("1");
 let tokens2 = tk.tokenize("1(2)");
 let tokens3 = tk.tokenize("1(2)(3)");
-let tokens4 = tk.tokenize("2()(4)");
+let tokens4 = tk.tokenize("2()(4)(5,6)(7,8,9,10)");
 
 //let tokens = tk.tokenize("(4-(3/4))");
 //tk.tokenize(argv[2]);
-- 
2.39.2