sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More readable genrec. 

Explicit quoting is slightly more overhead but worth it I think to show what's going on more clearly.
This commit is contained in:
Simon Forman 2019-07-16 09:53:48 -07:00
parent efeaa7b8e1
commit 47ae7b2328
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
thun/thun.pl
View File

@ -191,7 +191,8 @@ combo(times, [_, N|S], S, _, _ ) :- N #< 0, fail.
combo(genrec, [R1, R0, Then, If|S], combo(genrec, [R1, R0, Then, If|S],
[ Else, Then, If|S], E, [ifte|E]) :- [ Else, Then, If|S], E, [ifte|E]) :-
append(R0, [[If, Then, R0, R1, genrec]|R1], Else). Quoted = [If, Then, R0, R1, genrec],
append(R0, [Quoted|R1], Else).
/* /*