~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/orber/src/orber_ifr_irobject.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-08-05 20:54:29 UTC
  • mfrom: (6.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20090805205429-pm4pnwew8axraosl
Tags: 1:13.b.1-dfsg-5
* Fixed parentheses in Emacs mode (closes: #536891).
* Removed unnecessary conflicts with erlang-manpages package.
* Added workaround for #475459: disabled threads on sparc architecture.
  This breaks wxErlang, so it's only a temporary solution.

Show diffs side-by-side

added added

removed removed

Lines of Context:
50
50
%%% Don't type check the object reference. We need to be able to
51
51
%%% handle several types of objects that inherit from IRObject.
52
52
 
53
 
destroy(L) when list(L) ->
 
53
destroy(L) when is_list(L) ->
54
54
    destroy2(lists:reverse(L)).
55
55
 
56
56
destroy2([Things_HD | Things_TL]) ->
59
59
 
60
60
destroy2([]) -> 
61
61
    ok;
62
 
destroy2(F) when function(F) ->
 
62
destroy2(F) when is_function(F) ->
63
63
    F();
64
 
destroy2(Thing) when tuple(Thing) ->
 
64
destroy2(Thing) when is_tuple(Thing) ->
65
65
    mnesia:delete(Thing),
66
66
    ok;
67
67
destroy2(Thing) ->