From f7a960db8ff2c1529b1a5dbb7668ddc086c504ac Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 5 Jan 2017 14:40:21 -0800
Subject: [PATCH] add `br/list`

---
 beautiful-racket-lib/br/list.rkt | 6 ++++++
 beautiful-racket-lib/br/main.rkt | 8 ++------
 2 files changed, 8 insertions(+), 6 deletions(-)
 create mode 100644 beautiful-racket-lib/br/list.rkt

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