Changeset 1568 for trunk/compiler

Timestamp:

10/10/04 11:43:26 (4 years ago)

Author:

pmoura

Message:

Improved the implementation of the new "alias/1" predicate property.

Files:

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

trunk/compiler/logtalk.pl

@@ -1299 +1299 @@
 '$lgt_alias_pred'(_, Prefix, Alias, Pred, _) :-
     '$lgt_construct_alias_functor'(Prefix, Functor),
-    catch('$lgt_call'(Functor, _, Pred, Alias), _, fail),
+    '$lgt_once'(Functor, _, Pred, Alias),
     Pred \= Alias,
     !.
@@ -6499 +6499 @@
 
 '$lgt_write_alias_clauses'(Stream) :-
-    '$lgt_pp_alias_'(_, _, _) ->
-        '$lgt_pp_entity_'(_, _, Prefix, _),
-        '$lgt_construct_alias_functor'(Prefix, PRnm),
-        '$lgt_write_alias_clauses'(Stream, PRnm)
-        ;
-        true.
+    '$lgt_pp_entity_'(_, _, Prefix, _),
+    '$lgt_construct_alias_functor'(Prefix, PRnm),
+    '$lgt_write_alias_clauses'(Stream, PRnm).
+
 
 '$lgt_write_alias_clauses'(Stream, Rnm) :-
@@ -6519 +6517 @@
     write(Stream, '.'),
     nl(Stream).
+