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