: <users-in-memory> ( -- provider )
H{ } clone users-in-memory boa ;
-M: users-in-memory get-user ( username provider -- user/f )
- assoc>> at ;
+M: users-in-memory get-user assoc>> at ;
-M: users-in-memory update-user ( user provider -- ) 2drop ;
+M: users-in-memory update-user 2drop ;
-M: users-in-memory new-user ( user provider -- user/f )
+M: users-in-memory new-user
[ dup username>> ] dip assoc>>
2dup key? [ 3drop f ] [ pick [ set-at ] dip ] if ;