From 2bf752040928be5933a819b0ea10e2d3812c2eed Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Mon, 12 Aug 2024 00:38:03 +0200 Subject: Add spaces after each step-line --- cook/parse.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'cook') diff --git a/cook/parse.scm b/cook/parse.scm index 098b866..b18afba 100644 --- a/cook/parse.scm +++ b/cook/parse.scm @@ -142,12 +142,10 @@ https://github.com/cooklang/spec/blob/main/EBNF.md (step-line ((: (? ,whitespace) (=> s (+ ,text-item)) - (? ,nl)) - (concatenate s))) + (=> n (? ,nl))) + (append (concatenate s) (if n '(#\space) '())))) (step ((: (=> s ,step-line) (=> ns (* ,step-line))) - ;; TODO It's not converting the end of the step-line to a - ;; space (make-step (concatenate (append (list s) ns))))) (metadata ((: bol ">>" (* ,whitespace) -- cgit v1.2.3