From 26dd72cb7aab49f6d4438d8d32c370e3a5b2fa93 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 10 Feb 2017 00:00:46 -0800
Subject: [PATCH] whitespace

---
 beautiful-racket-demo/basic-demo-2/expander.rkt |  2 +-
 beautiful-racket-demo/basic-demo-2/line.rkt     | 10 +++++++---
 beautiful-racket-demo/basic-demo-2/struct.rkt   |  1 -
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/beautiful-racket-demo/basic-demo-2/expander.rkt b/beautiful-racket-demo/basic-demo-2/expander.rkt
index 6d42f5a..64e96a4 100644
--- a/beautiful-racket-demo/basic-demo-2/expander.rkt
+++ b/beautiful-racket-demo/basic-demo-2/expander.rkt
@@ -22,7 +22,7 @@
     (remove-duplicates
      (for/list ([var-stx (in-list (syntax-flatten stx))]
                 #:when (syntax-property var-stx 'b-id))
-               var-stx)
+       var-stx)
      #:key syntax->datum)))
 
 (define (run line-table)
diff --git a/beautiful-racket-demo/basic-demo-2/line.rkt b/beautiful-racket-demo/basic-demo-2/line.rkt
index bd58073..7d67684 100644
--- a/beautiful-racket-demo/basic-demo-2/line.rkt
+++ b/beautiful-racket-demo/basic-demo-2/line.rkt
@@ -7,11 +7,15 @@
                                       #:source #'NUM)])
     (syntax/loc caller-stx
       (define (LINE-NUM #:error [msg #f])
-        (with-handlers ([line-error? (λ (le) (handle-line-error NUM le))])
+        (with-handlers
+            ([line-error?
+              (λ (le) (handle-line-error NUM le))])
           (when msg (raise-line-error msg))
           STATEMENT ...)))))
 
 (define (handle-line-error num le)
-  (error (format "error in line ~a: ~a" num (line-error-msg 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
+(define (raise-line-error str)
+  (raise (line-error str)))
\ No newline at end of file
diff --git a/beautiful-racket-demo/basic-demo-2/struct.rkt b/beautiful-racket-demo/basic-demo-2/struct.rkt
index ee0de12..c150f5b 100644
--- a/beautiful-racket-demo/basic-demo-2/struct.rkt
+++ b/beautiful-racket-demo/basic-demo-2/struct.rkt
@@ -5,5 +5,4 @@
 
 (struct end-program-signal ())
 (struct change-line-signal (val))
-
 (struct line-error (msg))
\ No newline at end of file