steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use generate to make session ids

db4
Doug Coleman 2008-02-25 16:02:53 -06:00
parent 63b84d4f2b
commit ce94ca20dc
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/furnace/furnace.factor
View File

@ -204,4 +204,3 @@ SYMBOL: model
] [ ] [
drop drop
] if ; ] if ;

7
extra/furnace/sessions/sessions.factor
View File

@ -1,5 +1,5 @@
USING: assocs calendar init kernel math.parser USING: assocs calendar init kernel math.parser
namespaces random boxes alarms ; namespaces random boxes alarms combinators.lib ;
IN: furnace.sessions IN: furnace.sessions
SYMBOL: sessions SYMBOL: sessions
@ -11,9 +11,8 @@ SYMBOL: sessions
] "furnace.sessions" add-init-hook ] "furnace.sessions" add-init-hook
: new-session-id ( -- str ) : new-session-id ( -- str )
4 big-random >hex [ 4 big-random >hex ]
dup sessions get-global key? [ sessions get-global key? not ] generate ;
[ drop new-session-id ] when ;
TUPLE: session id namespace alarm user-agent ; TUPLE: session id namespace alarm user-agent ;