picolisp

commit 0dcd02906dfb947d0822f0f1ec98cd8ca4094d89
parent 1288cc338369992bb9cfd252607b57665ba69b7b
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 18 May 2013 09:13:47 +0200

Load-time dependency
Diffstat:
M
lib/adm.l
 | 
11
++++++-----

1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lib/adm.l b/lib/adm.l
@@ -1,4 +1,4 @@
-# 15may13abu
+# 18may13abu
 # (c) Software Lab. Alexander Burger
 
 # *Salt *Login *Users *Perms
@@ -23,10 +23,11 @@
                   (inc (& 63 (rd 1))) ) ) ) ) ) )
 
 (de passwd (Str Salt)
-   (nond
-      (*Salt Str)
-      (native (ext:Crypt Str (or Salt (salt))))
-      (NIL (native "libcrypt.so" "crypt" 'S Str (or Salt (salt)))) ) )
+   (if *Salt
+      `(if (== 64 64)
+         '(native "libcrypt.so" "crypt" 'S Str (or Salt (salt)))
+         '(ext:Crypt Str (or Salt (salt))) )
+      Str ) )
 
 (de auth (Nm Pw)
    (with (db 'nm '+User Nm)