jungerl-commit

[<cpr...@us...>]

Update of /cvsroot/jungerl/jungerl/lib/ce/src
In directory sc8-pr-cvs1:/tmp/cvs-serv16101/src

Modified Files:
	ce_log.erl 
Log Message:
Fixed bug in ce_log:write/2 which appeared when call stack was optimized away.

Index: ce_log.erl
===================================================================
RCS file: /cvsroot/jungerl/jungerl/lib/ce/src/ce_log.erl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ce_log.erl	19 Mar 2003 00:30:35 -0000	1.1
+++ ce_log.erl	19 Apr 2003 20:03:39 -0000	1.2
@@ -62,7 +62,12 @@
 write(String) ->
   {Date, Time} = calendar:local_time(),
   DateString = ce_calendar:logfile_datetime({Date, Time}),
-  {Module, Function, Arity} = hd(tl(ce_lib:call_stack())),
+  {Module, Function, Arity} = case tl(ce_lib:call_stack()) of
+    [] ->
+      {'?', '?', '?'};
+    [Head | _] ->
+      Head
+  end,
   Term = {{Date, Time}, {Module, Function, Arity}, String},
   case disk_log:info(?MODULE) of
     List when is_list(List) ->