Support comments

diff --git a/tt.rkt b/tt.rkt
index 230e6ac..455e6e5 100644 (file)
--- a/tt.rkt
+++ b/tt.rkt
@@ -210,8 +210,11 @@
   (define toks (string-split str))
   (apply feed toks))
 
+(define (filter-comments lines)
+  (filter-not (λ (line) (string-prefix? line "#")) lines))
+
 (define (str->feeds str)
-  (map str->feed (str->lines str)))
+  (map str->feed (filter-comments (str->lines str))))
 
 (define (file->feeds filename)
   (str->feeds (file->string filename)))