[Nym3-commit] r26 - trunk

nym3-devel@lists.noreply.org nym3-devel@lists.noreply.org
Tue, 18 May 2004 22:42:55 +0200


Author: laurent
Date: 2004-05-18 22:42:54 +0200 (Tue, 18 May 2004)
New Revision: 26

Modified:
   trunk/config.ml
   trunk/user.ml
Log:
Oops, missed one function rename.


Modified: trunk/config.ml
===================================================================
--- trunk/config.ml	2004-05-18 17:04:49 UTC (rev 25)
+++ trunk/config.ml	2004-05-18 20:42:54 UTC (rev 26)
@@ -1,5 +1,7 @@
 (* $Id$ *)
 
+(* Read the configuration options from a file *)
+
 open Options
 
 let conffile = ref "/var/lib/nym3/conf";;

Modified: trunk/user.ml
===================================================================
--- trunk/user.ml	2004-05-18 17:04:49 UTC (rev 25)
+++ trunk/user.ml	2004-05-18 20:42:54 UTC (rev 26)
@@ -32,7 +32,7 @@
 	try
 		Dbm.find db nym
 	with
-		Not_found -> unlockclose_userdb db; raise Not_found; ""
+		Not_found -> close_userdb db; raise Not_found; ""
 	in
 	close_userdb db;
 	(Marshal.from_string marshalled 0 : userdata);;