Thun/thun
Simon Forman 2a66e7fb47 If I comment out the WTF handler...
...then the branch combinator works as intended.  (Although the constraint-based stuff was also cool, it would have captured information from the comparison.)


?- joy(`[32 >] [++] [--] ifte`, Si, So).
Si = [_6598|_6600],
So = [_6598+1|_6600] ;
Si = [_6598|_6600],
So = [_6598-1|_6600] ;
false.

?- sjc(hmm, `[32 >] [++] [--] ifte`).
func(hmm, [A|B], [A+1|B]).
true ;
func(hmm, [A|B], [A-1|B]).
true ;
false.
2019-07-20 16:57:19 -07:00
..
compiler.pl Some docs, and a thing to print out the dictionary after compilation. 2019-05-03 15:21:06 -07:00
defs.txt Add bool function to mimic Python semantics. 2019-07-16 08:41:28 -07:00
metalogical.pl See https://www.metalevel.at/acomip/ 2019-05-06 12:47:30 -07:00
thun.pl If I comment out the WTF handler... 2019-07-20 16:57:19 -07:00