diff options
| -rw-r--r-- | cook/parse.scm | 6 |
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) |