Capture all of comments

Ignore them further down the stack

1 files changed, 11 insertions, 2 deletions

@@ -49,8 +49,8 @@ FLAT FUCK FORMAT : Specification
        (* NEWLINE)
        (not-followed-by peg-any)))
 
-(define-peg-pattern comment none
-  (and HASH (* WHITESPACE)
+(define-peg-pattern comment all
+  (and (+ HASH) (* WHITESPACE)
        (* (and (not-followed-by NEWLINE)
                peg-any))))
 
@@ -131,6 +131,11 @@ FLAT FUCK FORMAT : Specification
       #f))
 
 
+;;; Parameters
+
+(define fff/comments?
+  (make-parameter #f))
+
 (define (fff? x)
   (and (pair? x)
        (eq? (car x) 'fff)))
@@ -161,6 +166,10 @@ FLAT FUCK FORMAT : Specification
                 (`(item . ,pair)
                  (cons (fff-pair->scm pair)
                        it))
+                (`(comment ,comment)
+                 (if (fff/comments?)
+                     (cons (car xs) it)
+                     it))
                 (_ it))))))
 
 (define* (fff-ref-resolve tree #:optional environment keep-dupes?)