picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 048e83a861d4849e16625881afe36ca6066b6146
parent b85bd8a2868845ba132b9bfe95d42914c2fada1a
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 26 May 2013 12:39:20 +0200

Fix password indirecton
Diffstat:
Mlib/adm.l | 9+++++----
1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lib/adm.l b/lib/adm.l @@ -28,10 +28,11 @@ (inc (& 63 (rd 1))) ) ) ) ) ) ) (de auth (Nm Pw) - (and - (; (db 'nm '+User Nm) pw 0) - (= @ (passwd Pw @)) - This ) ) + (with (db 'nm '+User Nm) + (and + (: pw 0) + (= @ (passwd Pw @)) + This ) ) ) ### Login ### (de login (Nm Pw)