Changeset 4429 for trunk/compiler

Timestamp:

08/17/08 08:22:27 (5 months ago)

Author:

pmoura

Message:

Corrected a bug in the implementation of the built-in database predicates retract/1 and retractall/1 when adding a cachy entry for a local dynamic predicate with no scope declaration.

Files:

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

trunk/compiler/logtalk.pl

@@ -2597 +2597 @@
             (   '$lgt_debugging_'(Obj) ->
                 retract((Call :- '$lgt_dbg_fact'(_, _)))
-            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, PScope, Sender, Call),
+            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, p, Sender, Call),
                 retract(Call)
             )
@@ -2660 +2660 @@
             (   '$lgt_debugging_'(Obj) ->
                 true
-            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, PScope, Sender, Call)
+            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, p, Sender, Call)
             ),
             retractall(Call)