diff --git a/beautiful-racket-lib/br/list.rkt b/beautiful-racket-lib/br/list.rkt new file mode 100644 index 0000000..2e97c8b --- /dev/null +++ b/beautiful-racket-lib/br/list.rkt @@ -0,0 +1,6 @@ +#lang racket/base +(require br/define (for-syntax racket/base)) +(provide (all-defined-out)) + +(define-macro (values->list EXPR) + #'(call-with-values (λ () EXPR) list)) diff --git a/beautiful-racket-lib/br/main.rkt b/beautiful-racket-lib/br/main.rkt index bcc3072..4ded778 100644 --- a/beautiful-racket-lib/br/main.rkt +++ b/beautiful-racket-lib/br/main.rkt @@ -1,10 +1,10 @@ #lang racket/base (require racket/provide racket/list racket/string racket/format racket/match racket/port racket/function - br/define br/syntax br/datum br/debug br/cond racket/class racket/vector br/reader-utils + br/define br/syntax br/datum br/debug br/cond br/list racket/class racket/vector br/reader-utils (for-syntax racket/base racket/syntax br/syntax br/debug br/define br/datum)) (provide (all-from-out racket/base) (all-from-out racket/list racket/string racket/format racket/match racket/port racket/function - br/syntax br/datum br/debug br/cond racket/class racket/vector br/define br/reader-utils) + br/syntax br/datum br/debug br/cond br/list racket/class racket/vector br/define br/reader-utils) (for-syntax (all-from-out racket/base racket/syntax br/syntax br/debug br/datum)) (for-syntax caller-stx with-shared-id)) ; from br/define @@ -21,10 +21,6 @@ #'(parameterize ([current-namespace (make-base-namespace)]) (dynamic-require . ARGS))) -(provide values->list) -(define-macro (values->list EXPR) - #'(call-with-values (λ () EXPR) list)) - (module reader syntax/module-reader #:language 'br #:info br-get-info