From 8a7504ac9715a7ee8e338639e3b9e0212c7cc3f5 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 24 Jan 2017 22:59:40 -0800 Subject: [PATCH] correct 3D syntax --- beautiful-racket-demo/basic-demo/expander.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/beautiful-racket-demo/basic-demo/expander.rkt b/beautiful-racket-demo/basic-demo/expander.rkt index 0a458b2..143acb4 100644 --- a/beautiful-racket-demo/basic-demo/expander.rkt +++ b/beautiful-racket-demo/basic-demo/expander.rkt @@ -14,8 +14,8 @@ (struct $line (number thunk srcloc) #:transparent) (define-macro (b-line LINE-NUMBER STATEMENT) - (with-pattern ([SRCLOC (syntax-srcloc caller-stx)]) - #'($line LINE-NUMBER (thunk STATEMENT) SRCLOC))) + (with-pattern ([CALLER-STX caller-stx]) + #'($line LINE-NUMBER (thunk STATEMENT) (syntax-srcloc #'CALLER-STX)))) (define (b-statement stmt) stmt) (define (b-rem str) #f)