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

2 files changed, 2 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))
diff --git a/session.txr b/session.txr
index 1f9be6e..facc486 100644
--- a/session.txr
+++ b/session.txr
@@ -1,4 +1,5 @@
 @(define ensure-session (userid clientip))
+@  (local sessionid)
 @  (do (ensure-dir sessions-dir #o700))
 @  (bind sessionid @(rand (expt 2 128)))
 @  (output `@{sessions-dir}/@userid`)