Changeset 4563 for trunk/compiler

Timestamp:

11/02/08 09:44:08 (2 months ago)

Author:

pmoura

Message:

Modified the implementation of the define_events/5 built-in predicate to workaround a compatibility problem with ECLiPSe 5.10.

Files:

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

trunk/compiler/logtalk.pl

@@ -1155 +1155 @@
     var(Event),
     !,
-    '$lgt_current_object_'(Monitor, _, _, Def, _, _, _, _, _, _, _) ->
-    (   call_with_args(Def, before(Obj, Msg, Sender), Monitor, Monitor, Monitor, BCall, _) ->
-        (   call_with_args(Def, after(Obj, Msg, Sender), Monitor, Monitor, Monitor, ACall, _) ->
-            retractall('$lgt_before_'(Obj, Msg, Sender, Monitor, _)),
-            assertz('$lgt_before_'(Obj, Msg, Sender, Monitor, BCall)),
-            retractall('$lgt_after_'(Obj, Msg, Sender, Monitor, _)),
-            assertz('$lgt_after_'(Obj, Msg, Sender, Monitor, ACall))
-        ;   throw(error(existence_error(procedure, after/3), define_events(Event, Obj, Msg, Sender, Monitor)))
+    (   '$lgt_current_object_'(Monitor, _, _, Def, _, _, _, _, _, _, _) ->
+        (   call_with_args(Def, before(Obj, Msg, Sender), Monitor, Monitor, Monitor, BCall, _) ->
+            (   call_with_args(Def, after(Obj, Msg, Sender), Monitor, Monitor, Monitor, ACall, _) ->
+                retractall('$lgt_before_'(Obj, Msg, Sender, Monitor, _)),
+                assertz('$lgt_before_'(Obj, Msg, Sender, Monitor, BCall)),
+                retractall('$lgt_after_'(Obj, Msg, Sender, Monitor, _)),
+                assertz('$lgt_after_'(Obj, Msg, Sender, Monitor, ACall))
+            ;   throw(error(existence_error(procedure, after/3), define_events(Event, Obj, Msg, Sender, Monitor)))
+            )
+        ;   throw(error(existence_error(procedure, before/3), define_events(Event, Obj, Msg, Sender, Monitor)))
         )
-    ;   throw(error(existence_error(procedure, before/3), define_events(Event, Obj, Msg, Sender, Monitor)))
     ).