whitespace

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)

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)))
+(define (raise-line-error str)
+  (raise (line-error str)))

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))