From 91b2048285cf2c362ddb330c6fc61281f0f8f319 Mon Sep 17 00:00:00 2001
From: Georgi Kirilov <>
Date: Sat, 31 Oct 2020 11:50:53 +0200
Subject: [PATCH] scheme: remove #\ as a prefix

it messed up parsing, as it made #\() a valid list (it's not).
---
 edit.lua               | 7 +------
 parser/scheme/init.lua | 2 +-
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/edit.lua b/edit.lua
index 679408f..e2d7bfa 100644
--- a/edit.lua
+++ b/edit.lua
@@ -284,15 +284,10 @@ function M.new(parser, walker, fmt, write, delete, eol_at)
 
 	local function extend_overlap(range)
 		local rnode = walker.sexp_at({start = range.finish, finish = range.finish})
-		if rnode and rnode.p and rnode.p:find"[;\\]"
+		if rnode and rnode.p and rnode.p:find";"
 			and range.finish > rnode.start and range.finish < rnode.start + #rnode.p then
 			return {start = range.start, finish = rnode.start + #rnode.p}
 		end
-		rnode = walker.sexp_at({start = range.start, finish = range.start})
-		if rnode and rnode.p and rnode.p:find"\\"
-			and range.start == rnode.start + #rnode.p then
-			return {start = rnode.start, finish = range.finish}
-		end
 		return range
 	end
 
diff --git a/parser/scheme/init.lua b/parser/scheme/init.lua
index 3e6fc86..1f0d29b 100644
--- a/parser/scheme/init.lua
+++ b/parser/scheme/init.lua
@@ -8,7 +8,7 @@ local macro_prefix =
 		S'us' * ('8' + '16' + '32' + '64') --[[+ P'f' * ('32' + '64')]] +
 		R'09'^0 * 'vu8' +
 		R'09'^1 +
-		S';\\') +
+		';') +
 	P'#'^-1 * (P',@' + S",`'") +
 	'#'
 
-- 
2.11.4.GIT