add remove-blank-lines
for tutorial
This commit is contained in:
parent
38ee7ce634
commit
f9c3f67f47
|
@ -15,5 +15,11 @@
|
||||||
|
|
||||||
;; todo: activate at-exp reader by default
|
;; 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
|
(module reader syntax/module-reader
|
||||||
#:language 'br)
|
#:language 'br)
|
Loading…
Reference in New Issue
Block a user