From 1523ef17cf64c4641fa2970473c3765c63def698 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 22 Apr 2018 21:06:18 +0100
Subject: [PATCH] Correct typo

---
 syndicate/syntax.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt
index 7d24a8f..2315b5b 100644
--- a/syndicate/syntax.rkt
+++ b/syndicate/syntax.rkt
@@ -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?