From 533d6f9a24be105d476b0c69d1cdac53929626e7 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 9 Apr 2018 10:29:14 +0100 Subject: [PATCH] Improve syntax location tracking --- syndicate/syntax.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt index 785f540..7c3f869 100644 --- a/syndicate/syntax.rkt +++ b/syndicate/syntax.rkt @@ -320,8 +320,9 @@ (schedule-script! #:priority #,priority-stx (current-dataspace) - (lambda () - #,script-stx))))))))] + #,(quasisyntax/loc script-stx + (lambda () + #,script-stx)))))))))] [(asserted P) (analyze-asserted/retracted outer-expr-stx when-pred-stx script-stx #t #'P priority-stx)] [(retracted P) @@ -348,8 +349,9 @@ (schedule-script! #:priority #,priority-stx (current-dataspace) - (lambda () - #,script-stx))))))))) + #,(quasisyntax/loc script-stx + (lambda () + #,script-stx)))))))))) ;; (define-syntax (during stx) ;; (syntax-parse stx