Minor cleanup.
This commit is contained in:
+3
-3
@@ -1,10 +1,10 @@
|
|||||||
% A Tracing Meta-Interpreter for Thun
|
% A Tracing Meta-Interpreter for Thun
|
||||||
|
|
||||||
tmi(true).
|
tmi(true).
|
||||||
|
tmi(!).
|
||||||
tmi((A, B)) :- tmi(A), tmi(B).
|
tmi((A, B)) :- tmi(A), tmi(B).
|
||||||
tmi(number(A)) :- !, number(A).
|
tmi(number(A)) :- number(A).
|
||||||
tmi(var(A)) :- !, var(A).
|
tmi(var(A)) :- var(A).
|
||||||
tmi(!) :- !.
|
|
||||||
|
|
||||||
% Meta-logical print trace.
|
% Meta-logical print trace.
|
||||||
% (Could also be captured in a list or something instead.)
|
% (Could also be captured in a list or something instead.)
|
||||||
|
|||||||
Reference in New Issue
Block a user