From 4690fc71ee0a94994133ec79e73150162d99503f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 10 Apr 2016 16:47:42 -0700 Subject: [PATCH] move file --- br/main.rkt | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100644 br/main.rkt diff --git a/br/main.rkt b/br/main.rkt deleted file mode 100644 index 9ab9ab9..0000000 --- a/br/main.rkt +++ /dev/null @@ -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) \ No newline at end of file