You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
822 B
Racket
33 lines
822 B
Racket
#lang racket/base
|
|
(require (for-syntax racket/base br/syntax) br/define)
|
|
(provide (for-syntax (all-from-out racket/base br/syntax)))
|
|
(provide (all-from-out racket/base) r+p)
|
|
|
|
(define-macro (r+p ID ...)
|
|
#'(begin (require ID ...) (provide (all-from-out ID ...))))
|
|
|
|
(r+p "helper.rkt"
|
|
"generic.rkt"
|
|
sugar/debug
|
|
racket/class
|
|
racket/list
|
|
racket/string
|
|
racket/function
|
|
br/define
|
|
sugar/define
|
|
sugar/class
|
|
sugar/js
|
|
sugar/dict
|
|
sugar/stub
|
|
sugar/port
|
|
sugar/case)
|
|
|
|
(provide define-procedures)
|
|
(define-macro (define-procedures (NEW ...) (OLD ...))
|
|
#'(define-values (NEW ...)
|
|
(values (if (procedure? OLD)
|
|
(procedure-rename OLD 'NEW)
|
|
OLD) ...)))
|
|
|
|
(module reader syntax/module-reader
|
|
#:language 'xenomorph/private/racket) |