The Lambda Lab
/
projects
/
microbotany.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed bug in directory update.
[microbotany.git]
/
register.scm
diff --git
a/register.scm
b/register.scm
index
71174c2
..
5aa2e91
100755
(executable)
--- a/
register.scm
+++ b/
register.scm
@@
-9,7
+9,7
@@
(serve-query "User name")
(let* ((username (symbol->string (caar query)))
(hash (string->sha1sum (conc username
(serve-query "User name")
(let* ((username (symbol->string (caar query)))
(hash (string->sha1sum (conc username
- (number->string (pseudo-random-integer 10000))))))
+ (number->string (pseudo-random-integer 10000
00
))))))
(with-output-to-file (conc "accounts/" hash)
(lambda ()
(write (make-garden username))))
(with-output-to-file (conc "accounts/" hash)
(lambda ()
(write (make-garden username))))