rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

properly thread functors whose first subterm is a variable in thread_goals/4

Browse Source
This commit is contained in:
Mark Thom
2021-01-30 23:37:23 -07:00
parent a239007db0
commit c2e3b47d29
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/loader.pl
View File

@@ -421,7 +421,7 @@ thread_goals(Goals0, Goals1, Functor) :-
thread_goals(Goals0, Goals1, Hole, Functor) :- thread_goals(Goals0, Goals1, Hole, Functor) :-
( var(Goals0) -> ( var(Goals0) ->
Goals0 = Goals1 Goals1 =.. [Functor, Goals0, Hole]
; ( Goals0 = [G | Gs] -> ; ( Goals0 = [G | Gs] ->
( Gs == [] -> ( Gs == [] ->
Goals1 =.. [Functor, G, Hole] Goals1 =.. [Functor, G, Hole]