Improve syntax location tracking
This commit is contained in:
parent
3452f1fe6e
commit
533d6f9a24
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue