Handbook
Glossary
maybe-login-client ( -- )
Vocabulary
managed-server.private
Inputs
None
Outputs
None
Definition
USING:
accessors
assocs
kernel
managed-server
;
IN:
managed-server.private
:
maybe-login-client
( -- )
username
clients
key?
[
handle-already-logged-in
]
[
t
client
logged-in?<<
client
username
clients
set-at
]
if
;