From 4a94ef7b845c4a515352e4d14e46e81650841e29 Mon Sep 17 00:00:00 2001 From: Siraaj Khandkar Date: Wed, 17 Mar 2021 11:15:17 -0400 Subject: [PATCH] Support comments --- tt.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tt.rkt b/tt.rkt index 230e6ac..455e6e5 100644 --- 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))) -- 2.20.1