More readable genrec.

Explicit quoting is slightly more overhead but worth it I think to show what's going on more clearly.
2019-07-16 09:53:48 -07:00 · 2019-07-16 09:53:48 -07:00 · 47ae7b2328
parent efeaa7b8e1
commit 47ae7b2328
1 changed files with 2 additions and 1 deletions
--- a/thun/thun.pl
+++ b/thun/thun.pl
@ -191,7 +191,8 @@ combo(times, [_, N|S], S, _,  _ ) :- N #< 0, fail.

 combo(genrec, [R1, R0, Then, If|S],
              [  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).


 /*