Correct typo
This commit is contained in:
parent
efa7f517c4
commit
1523ef17cf
|
@ -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?
|
||||
|
|
Loading…
Reference in New Issue