[Gd-chatter] r11697 - trunk/libraries/network/web-framework

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Sun Feb 24 01:18:38 2008
New Revision: 11697

Modified:
   trunk/libraries/network/web-framework/users.dylan
Log:
Job: minor
authenticate


Modified: trunk/libraries/network/web-framework/users.dylan
==============================================================================
--- trunk/libraries/network/web-framework/users.dylan	(original)
+++ trunk/libraries/network/web-framework/users.dylan	Sun Feb 24 01:18:38 2008
@@ -52,6 +52,7 @@
 
 define function authenticated-user ()
  => (user :: false-or(<user>));
+  authenticate();
   *authenticated-user*
 end;