From: Mark <markjordanthom@gmail.com>
Date: Fri, 30 Jun 2023 18:06:07 +0000 (-0600)
Subject: do not enclose '(' as atom in brackets (#1487)
X-Git-Tag: v0.9.2~100
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=1620824d3ad40be577ec356ebe3d194184d127c1;p=scryer-prolog.git

do not enclose '(' as atom in brackets (#1487)
---

diff --git a/src/parser/parser.rs b/src/parser/parser.rs
index 021147ea..1d7e035d 100644
--- a/src/parser/parser.rs
+++ b/src/parser/parser.rs
@@ -827,6 +827,10 @@ impl<'a, R: CharRead> Parser<'a, R> {
             return false;
         }
 
+        if let Some(TokenType::Open | TokenType::OpenCT) = self.stack.last().map(|token| token.tt) {
+            return false;
+        }
+
         let idx = self.stack.len() - 2;
         let td = self.stack.remove(idx);