diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bad inline expansion of exclude (obs from Paolo Frasconi)

This commit is contained in:
Vítor Santos Costa 2010-05-19 17:15:11 +01:00
parent 439fbda8f7
commit 2639e6c868
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/maplist.yap
View File

@ -431,7 +431,7 @@ goal_expansion(exclude(Meta, ListIn, ListOut), Mod:Goal) :-
compile_aux([ compile_aux([
Base, Base,
(RecursionHead :- (RecursionHead :-
(Apply -> Outs = [In|NOuts]; Outs = NOuts), (Apply -> Outs = NOuts; Outs = [In|NOuts]),
RecursiveCall) RecursiveCall)
], Mod). ], Mod).