summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--cook/parse.scm6
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)