Add some local directive to pattern functions so vars are private.

1 files changed, 1 insertions, 0 deletions

diff --git a/auth.txr b/auth.txr
index 08e984c..3820f6a 100644
--- a/auth.txr
+++ b/auth.txr
@@ -15,6 +15,7 @@
        (let ((response (get-string sock)))
          (equal [response 2..4] "OK")))))
 @(define auth (userid password))
+@  (local s)
 @  (if (eq auth :sasl))
 @    (require (sasl-auth userid password))
 @  (elif (eq auth :imap))