From f9c3f67f47ff2c2b970a537ee4a7b3053f529f34 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sat, 5 Mar 2016 10:35:26 -0800
Subject: [PATCH] add `remove-blank-lines` for tutorial

---
 br/main.rkt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/br/main.rkt b/br/main.rkt
index 2a179f7..b3d9db6 100644
--- a/br/main.rkt
+++ b/br/main.rkt
@@ -15,5 +15,11 @@
 
 ;; todo: activate at-exp reader by default
 
+(define (remove-blank-lines strs)
+  (filter (λ(str) (regexp-match #px"\\S" str)) strs))
+
+(provide remove-blank-lines)
+
+
 (module reader syntax/module-reader
   #:language 'br)
\ No newline at end of file