Changeset 4503 for trunk/compiler

Timestamp:

10/12/08 10:42:58 (3 months ago)

Author:

pmoura

Message:

Corrected two singleton variable bugs in the updated definitions of the database built-in methods retract/1 and retractall/1.

Files:

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

trunk/compiler/logtalk.pl

@@ -2646 +2646 @@
             (   '$lgt_debugging_'(Obj) ->
                 retract((Call :- '$lgt_dbg_fact'(_, _, _)))
-            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, p, PredType, Sender, Call),
+            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, p, (dynamic), Sender, Call),
                 retract(Call)
             )
@@ -2709 +2709 @@
             (   '$lgt_debugging_'(Obj) ->
                 true
-            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, p, PredType, Sender, Call)
+            ;   '$lgt_add_db_lookup_cache_entry'(Obj, Head, p, (dynamic), Sender, Call)
             ),
             retractall(Call)