From 3525165eeefe739f9978c3b41dee85fd4b826ef5 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sun, 11 Aug 2024 12:32:18 +0200
Subject: Group whitespaces in one string
---
cook/parse.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'cook')
diff --git a/cook/parse.scm b/cook/parse.scm
index b5f994d..a4ab940 100644
--- a/cook/parse.scm
+++ b/cook/parse.scm
@@ -87,7 +87,8 @@ https://github.com/cooklang/spec/blob/main/EBNF.md
(define-grammar cook
(nl ((: ,newline-chars)))
(empty-line ((: bol ,nl)))
- (whitespace ((+ ,char-set:whitespace)))
+ (whitespace ((=> x (+ ,char-set:whitespace))
+ (list->string x)))
(any-text-item ((: (=> c (+ ,any-text-chars)))
(list->string c)))
--
cgit v1.2.3