[no-colon] per-package

This commit is contained in:
ben 2015-12-16 03:15:14 -05:00
parent 657d637bde
commit a13bd8e5d8
4 changed files with 37 additions and 23 deletions

7
format/no-colon.rkt Normal file
View File

@ -0,0 +1,7 @@
#lang typed/racket/base
(provide (all-from-out trivial/format))
(require (rename-in trivial/format
[format: format]
[printf: printf]))

9
math/no-colon.rkt Normal file
View File

@ -0,0 +1,9 @@
#lang typed/racket/base
(provide (all-from-out trivial/math))
(require (rename-in trivial/math
[+: +]
[-: -]
[*: *]
[/: /]))

View File

@ -3,28 +3,12 @@
;; Provides the same bindings as `trivial/main`,
;; but without the trailing colon.
(provide (all-from-out trivial))
(provide
(all-from-out trivial/format/no-colon)
(all-from-out trivial/math/no-colon)
(all-from-out trivial/regexp/no-colon))
(require
(rename-in trivial
;; -- from `format.rkt`
[format: format]
[printf: printf]
;; -- from `regexp.rkt`
[regexp-match: regexp-match]
[regexp: regexp]
[pregexp: pregexp]
[byte-regexp: byte-regexp]
[byte-pregexp: byte-pregexp]
[define-regexp: define-regexp]
[define-pregexp: define-pregexp]
[define-byte-regexp: define-byte-regexp]
[define-byte-pregexp: define-byte-pregexp]
;; -- from `math.rkt`
[+: +]
[-: -]
[*: *]
[/: /]
))
trivial/format/no-colon
trivial/math/no-colon
trivial/regexp/no-colon)

14
regexp/no-colon.rkt Normal file
View File

@ -0,0 +1,14 @@
#lang typed/racket/base
(provide (all-from-out trivial/regexp))
(require (rename-in trivial/regexp
[regexp-match: regexp-match]
[regexp: regexp]
[pregexp: pregexp]
[byte-regexp: byte-regexp]
[byte-pregexp: byte-pregexp]
[define-regexp: define-regexp]
[define-pregexp: define-pregexp]
[define-byte-regexp: define-byte-regexp]
[define-byte-pregexp: define-byte-pregexp]))