From 4e5f6d9acd3a4ef7223c6e38e9e0e342ff3d54d2 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 10 Feb 2017 12:42:02 -0800
Subject: [PATCH] move

---
 beautiful-racket-demo/basic-demo-2/line.rkt | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/beautiful-racket-demo/basic-demo-2/line.rkt b/beautiful-racket-demo/basic-demo-2/line.rkt
index 7d67684..dd1ad7f 100644
--- a/beautiful-racket-demo/basic-demo-2/line.rkt
+++ b/beautiful-racket-demo/basic-demo-2/line.rkt
@@ -1,6 +1,6 @@
 #lang br
 (require "struct.rkt")
-(provide (all-defined-out))
+(provide b-line raise-line-error)
 
 (define-macro (b-line NUM STATEMENT ...)
   (with-pattern ([LINE-NUM (prefix-id "line-" #'NUM
@@ -13,9 +13,10 @@
           (when msg (raise-line-error msg))
           STATEMENT ...)))))
 
+(define (raise-line-error error-msg)
+  (raise (line-error error-msg)))
+
 (define (handle-line-error num le)
   (error (format "error in line ~a: ~a"
                  num (line-error-msg le))))
 
-(define (raise-line-error str)
-  (raise (line-error str)))
\ No newline at end of file