• R/O
  • SSH

Joypy: Commit

Main interpreter and library.


Commit MetaInfo

Revisionb85fe6c1d110f525326e92ff95b7cc58b7902bbc (tree)
Time2019-07-21 08:57:19
AuthorSimon Forman <sforman@hush...>
CommiterSimon Forman

Log Message

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.

Change Summary

Incremental Difference

diff -r dc6666877cd1 -r b85fe6c1d110 thun/thun.pl
--- a/thun/thun.pl Sat Jul 20 16:45:28 2019 -0700
+++ b/thun/thun.pl Sat Jul 20 16:57:19 2019 -0700
@@ -88,7 +88,7 @@
8888 thun([Combo|E], Si, So) :- combo(Combo, Si, S, E, Eo), thun(Eo, S, So).
8989
9090 % Some error handling.
91-thun([Unknown|E], Si, So) :- write("wtf? "), writeln(Unknown), So = [[Unknown|E]|Si].
91+% thun([Unknown|E], Si, So) :- write("wtf? "), writeln(Unknown), So = [[Unknown|E]|Si].
9292
9393 /*
9494 Literals
Show on old repository browser