Correct typo

This commit is contained in:
Tony Garnock-Jones 2018-04-22 21:06:18 +01:00
parent efa7f517c4
commit 1523ef17cf
1 changed files with 3 additions and 3 deletions

View File

@ -330,11 +330,11 @@
(lambda ()
#,script-stx)))))))))]
[(asserted P)
(analyze-asserted/retracted outer-expr-stx when-pred-stx script-stx #t #'P priority-stx)]
(analyse-asserted/retracted outer-expr-stx when-pred-stx script-stx #t #'P priority-stx)]
[(retracted P)
(analyze-asserted/retracted outer-expr-stx when-pred-stx script-stx #f #'P priority-stx)]))
(analyse-asserted/retracted outer-expr-stx when-pred-stx script-stx #f #'P priority-stx)]))
(define-for-syntax (analyze-asserted/retracted outer-expr-stx
(define-for-syntax (analyse-asserted/retracted outer-expr-stx
when-pred-stx
script-stx
asserted?