Improve syntax location tracking

This commit is contained in:
Tony Garnock-Jones 2018-04-09 10:29:14 +01:00
parent 3452f1fe6e
commit 533d6f9a24
1 changed files with 6 additions and 4 deletions

View File

@ -320,8 +320,9 @@
(schedule-script! (schedule-script!
#:priority #,priority-stx #:priority #,priority-stx
(current-dataspace) (current-dataspace)
(lambda () #,(quasisyntax/loc script-stx
#,script-stx))))))))] (lambda ()
#,script-stx)))))))))]
[(asserted P) [(asserted P)
(analyze-asserted/retracted outer-expr-stx when-pred-stx script-stx #t #'P priority-stx)] (analyze-asserted/retracted outer-expr-stx when-pred-stx script-stx #t #'P priority-stx)]
[(retracted P) [(retracted P)
@ -348,8 +349,9 @@
(schedule-script! (schedule-script!
#:priority #,priority-stx #:priority #,priority-stx
(current-dataspace) (current-dataspace)
(lambda () #,(quasisyntax/loc script-stx
#,script-stx))))))))) (lambda ()
#,script-stx))))))))))
;; (define-syntax (during stx) ;; (define-syntax (during stx)
;; (syntax-parse stx ;; (syntax-parse stx