diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-11 16:25:47 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-11 16:25:47 -0800 |
| commit | 77e77999ed725a6f9c9ac09df0a94833d7b11c34 (patch) | |
| tree | 8c3aec8f5bbbf56b1ae61dda6285eff9acfa9484 /session.txr | |
| parent | 9ce49a16dc80c8a443bcea77acdb9121dd64b175 (diff) | |
| download | tamarind-77e77999ed725a6f9c9ac09df0a94833d7b11c34.tar.gz tamarind-77e77999ed725a6f9c9ac09df0a94833d7b11c34.tar.bz2 tamarind-77e77999ed725a6f9c9ac09df0a94833d7b11c34.zip | |
Add some local directive to pattern functions so vars are private.
Diffstat (limited to 'session.txr')
| -rw-r--r-- | session.txr | 1 |
1 files changed, 1 insertions, 0 deletions
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`) |