Merge comment characters in strings

1 files changed, 13 insertions, 1 deletions

diff --git a/cook/parse.scm b/cook/parse.scm
index b18afba..bfb50a7 100644
--- a/cook/parse.scm
+++ b/cook/parse.scm
@@ -65,6 +65,18 @@ https://github.com/cooklang/spec/blob/main/EBNF.md
               meta-lines)
     metadata))
 
+(define (merge-step-strings lis)
+  (reduce-right
+    (lambda (el acc)
+      (cond
+        ((char? el)
+         (if (and (< 0 (length acc)) (string? (car acc)))
+           (cons (string-append (string el) (car acc)) (cdr acc))
+           (append (list (string el)) acc)))
+        (else
+           (append (list el) acc))))
+    '()
+    lis))
 
 
 (define whitespace-chars  (char-set #\space))
@@ -146,7 +158,7 @@ https://github.com/cooklang/spec/blob/main/EBNF.md
                        (append (concatenate s) (if n '(#\space) '()))))
 
     (step           ((: (=> s ,step-line) (=> ns (* ,step-line)))
-                     (make-step (concatenate (append (list s) ns)))))
+                     (make-step (merge-step-strings (concatenate (append (list s) ns))))))
 
     (metadata       ((: bol ">>" (* ,whitespace)
                         (=> k ,meta-key)