syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
syndicate/syntax.rkt
View File

@ -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