move file
parent
4c1d0ea537
commit
4690fc71ee
@ -1,25 +0,0 @@
|
|||||||
#lang racket/base
|
|
||||||
(require racket/provide racket/list racket/string racket/format racket/match racket/port
|
|
||||||
br/define br/syntax br/datum br/debug br/conditional
|
|
||||||
(for-syntax racket/base racket/syntax br/syntax br/define))
|
|
||||||
(provide (except-out (all-from-out racket/base) define)
|
|
||||||
(all-from-out racket/list racket/string racket/format racket/match racket/port
|
|
||||||
br/syntax br/datum br/debug br/conditional)
|
|
||||||
(for-syntax (all-from-out racket/base racket/syntax br/syntax))
|
|
||||||
(filtered-out
|
|
||||||
(λ (name)
|
|
||||||
(let ([pat (regexp "^br:")])
|
|
||||||
(and (regexp-match? pat name)
|
|
||||||
(regexp-replace pat name ""))))
|
|
||||||
(combine-out (all-from-out br/define))))
|
|
||||||
|
|
||||||
;; 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)
|
|
Loading…
Reference in New Issue