Add spaces after each step-line

1 files changed, 2 insertions, 4 deletions

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)