fix bad calls (obs from Paulo Moura).

This commit is contained in:
Costa Vitor
2009-06-08 14:13:31 -05:00
parent 982cf95bf6
commit 1e55e2f388
5 changed files with 12 additions and 10 deletions

View File

@@ -5,6 +5,8 @@
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:- module(expand_macros, []).
:- use_module(library(lists), [append/3]).
:- use_module(library(charsio), [format_to_chars/3, read_from_chars/2]).
:- use_module(library(error), [must_be/2]).
@@ -394,6 +396,7 @@ user:goal_expansion(sumnodes(Meta, Term, AccIn, AccOut), Mod, Goal) :-
),
RecursiveCall)
], Module).
:- unhide('$translate_rule').
% stolen from SWI-Prolog
user:goal_expansion(phrase(NT,Xs), Mod, NTXsNil) :-