Correct typo
This commit is contained in:
parent
efa7f517c4
commit
1523ef17cf
|
@ -330,11 +330,11 @@
|
||||||
(lambda ()
|
(lambda ()
|
||||||
#,script-stx)))))))))]
|
#,script-stx)))))))))]
|
||||||
[(asserted P)
|
[(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)
|
[(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
|
when-pred-stx
|
||||||
script-stx
|
script-stx
|
||||||
asserted?
|
asserted?
|
||||||
|
|
Loading…
Reference in New Issue