\ init-user DEBUG add-input-logging
-M: realm call-responder* ( path responder -- response )
+M: realm call-responder*
dup realm namespaces:set
logged-in? [
dup init-realm
} cond
] if ;
-M: protected call-responder* ( path responder -- response )
+M: protected call-responder*
dup protected namespaces:set
dup capabilities>> have-capabilities?
[ call-next-method ] [