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