From 77e77999ed725a6f9c9ac09df0a94833d7b11c34 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 11 Nov 2016 16:25:47 -0800
Subject: Add some local directive to pattern functions so vars are private.

---
 auth.txr    | 1 +
 session.txr | 1 +
 2 files changed, 2 insertions(+)

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`)
-- 
cgit v1.2.3