Changeset 4551 for trunk/compiler

Timestamp:

10/31/08 10:06:18 (2 months ago)

Author:

pmoura

Message:

Added missing "built_in" properties for the built-in protocols "expanding" and "monitoring".

Files:

• trunk/compiler/logtalk.pl (modified) (4 diffs)

trunk/compiler/logtalk.pl

@@ -479 +479 @@
     throw(error(domain_error(object_property, Prop), object_property(Obj, Prop))).
 
-object_property(user, built_in).
-object_property(debugger, built_in).
-object_property(logtalk, built_in).
-
 object_property(Obj, Prop) :-
     '$lgt_current_object_'(Obj, _, _, _, _, _, _, _, _, _, Type),
@@ -524 +520 @@
 
 protocol_property(Ptc, Prop) :-
-    '$lgt_current_protocol_'(Ptc, _, _, _, _, Type),
+    '$lgt_current_protocol_'(Ptc, _, _, _, Type),
     (   Prop = Type                         % static/dynamic property
     ;   '$lgt_entity_property_'(Ptc, Prop)  % other properties
@@ -3395 +3391 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
-%  built-in entity runtime table clauses
+%  built-in entity runtime table clauses and properties
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -3410 +3406 @@
 
 
+'$lgt_entity_property_'(logtalk, built_in).
+'$lgt_entity_property_'(user, built_in).
 '$lgt_entity_property_'(user, threaded).
+'$lgt_entity_property_'(debugger, built_in).
+'$lgt_entity_property_'(expanding, built_in).
+'$lgt_entity_property_'(monitoring, built_in).