Changeset 4600 for trunk/compiler

Timestamp:

11/21/08 15:34:32 (7 weeks ago)

Author:

pmoura

Message:

Updated the "expansion" example to illustrate the new expand_goal/2 built-in method.

Files:

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

trunk/compiler/logtalk.pl

@@ -2976 +2976 @@
 % expand_goal/2 built-in method
 
-'$lgt_expand_goal'(Obj, Goal, Expansion, Sender, Scope) :-
+'$lgt_expand_goal'(Obj, Goal, EGoal, Sender, Scope) :-
     (    var(Goal) ->
-         Expansion = Goal
-    ;    '$lgt_goal_expansion'(Obj, Goal, Expand, Sender, Scope) ->
-         Expansion = Expand
-    ;    Expansion = Goal
+         EGoal = Goal
+    ;    '$lgt_goal_expansion'(Obj, Goal, Expanded, Sender, Scope) ->
+         '$lgt_expand_goal'(Obj, Expanded, EGoal, Sender, Scope)
+    ;    EGoal = Goal
     ).