correct inlining calling in last call context

This commit is contained in:
Mark Thom
2019-03-02 22:57:07 -07:00
parent e4cb904470
commit 77652d4458
6 changed files with 31 additions and 82 deletions

View File

@@ -613,70 +613,8 @@ match_builtins(string, 1).
match_builtins(float, 1).
match_builtins(nonvar, 1).
match_builtins(var, 1).
match_builtins(call, 0).
match_builtins(call, 1).
match_builtins(call, 2).
match_builtins(call, 3).
match_builtins(call, 4).
match_builtins(call, 5).
match_builtins(call, 6).
match_builtins(call, 7).
match_builtins(call, 8).
match_builtins(call, 9).
match_builtins(call, 10).
match_builtins(call, 11).
match_builtins(call, 12).
match_builtins(call, 13).
match_builtins(call, 14).
match_builtins(call, 15).
match_builtins(call, 16).
match_builtins(call, 17).
match_builtins(call, 18).
match_builtins(call, 19).
match_builtins(call, 20).
match_builtins(call, 21).
match_builtins(call, 22).
match_builtins(call, 23).
match_builtins(call, 24).
match_builtins(call, 25).
match_builtins(call, 26).
match_builtins(call, 27).
match_builtins(call, 28).
match_builtins(call, 29).
match_builtins(call, 30).
match_builtins(call, 31).
match_builtins(call, 32).
match_builtins(call, 33).
match_builtins(call, 34).
match_builtins(call, 35).
match_builtins(call, 36).
match_builtins(call, 37).
match_builtins(call, 38).
match_builtins(call, 39).
match_builtins(call, 40).
match_builtins(call, 41).
match_builtins(call, 42).
match_builtins(call, 43).
match_builtins(call, 44).
match_builtins(call, 45).
match_builtins(call, 46).
match_builtins(call, 47).
match_builtins(call, 48).
match_builtins(call, 49).
match_builtins(call, 50).
match_builtins(call, 51).
match_builtins(call, 52).
match_builtins(call, 53).
match_builtins(call, 54).
match_builtins(call, 55).
match_builtins(call, 56).
match_builtins(call, 57).
match_builtins(call, 58).
match_builtins(call, 59).
match_builtins(call, 60).
match_builtins(call, 61).
match_builtins(call, 62).
match_builtins(call, 63).
match_builtins(call, N) :-
between:between(0, 63, N).
'$iterate_predicate_list'([Name/Arity|Preds], Name/Arity).
'$iterate_predicate_list'([_|Preds], Pred) :-

View File

@@ -86,3 +86,4 @@ maplist(_, [], [], [], [], [], [], [], []).
maplist(Cont, [E1|E1s], [E2|E2s], [E3|E3s], [E4|E4s], [E5|E5s], [E6|E6s], [E7|E7s], [E8|E8s]) :-
call(Cont, E1, E2, E3, E4, E5, E6, E7),
maplist(Cont, E1s, E2s, E3s, E4s, E5s, E6s, E7s, E8s).