From 3525165eeefe739f9978c3b41dee85fd4b826ef5 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga 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(-) 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