add `remove-blank-lines` for tutorial

8 years ago · f9c3f67f47
parent 38ee7ce634
commit f9c3f67f47
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)