Changeset 4335 for trunk

Timestamp:

07/01/08 08:14:25 (2 months ago)

Author:

pmoura

Message:

Fixed the predicate that constructs object functors to use the new representation of the runtime tables for pre-defined objects.

Files:

• trunk/compiler/logtalk.pl (modified) (1 diff)

trunk/compiler/logtalk.pl

@@ -10693 +10693 @@
 '$lgt_construct_object_functors'(Obj, Prefix, Dcl, Def, Super, IDcl, IDef, DDcl, DDef, Rnm) :-
     (   '$lgt_built_in_object'(Obj) ->
-        '$lgt_current_object_'(Obj, Prefix, _, _, _, _, _, _, _, _, _, _, _),
-        Call =.. [Prefix, Dcl, Def, Super, IDcl, IDef, DDcl, DDef, Rnm],
-        once(Call)
+        '$lgt_current_object_'(Obj, Prefix, Dcl, Def, Super, IDcl, IDef, DDcl, DDef, Rnm, _, _, _)
     ;   '$lgt_construct_entity_prefix'(Obj, Prefix),
         atom_concat(Prefix, '_dcl', Dcl),