add remove-blank-lines for tutorial

2016-03-05 10:35:26 -08:00 · 2016-03-05 10:35:26 -08:00 · f9c3f67f47
commit f9c3f67f47
parent 38ee7ce634
1 changed files with 6 additions and 0 deletions
--- 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)