X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=MUDDLE%2Frevtes.4;fp=MUDDLE%2Frevtes.4;h=2f0f2f31b0b8818aa1266ab61e6861b90d71b86d;hp=0000000000000000000000000000000000000000;hb=39c5769144e7f2a58076bdb973d2c80fa603345c;hpb=bab072f950a643ac109660a223b57e635492ac25

diff --git a/MUDDLE/revtes.4 b/MUDDLE/revtes.4
new file mode 100644
index 0000000..2f0f2f3
--- /dev/null
+++ b/MUDDLE/revtes.4
@@ -0,0 +1,10 @@
+<DEFINE REV 
+ <ACTOR (EXP "AUX" FRONT BACK)
+   <WHEN (() .EXP)
+         ((_FRONT !_BACK)
+          <BE <IS? (!<REV .BACK> ?FRONT) .EXP>>)   >>>
+
+
+<DEFINE PAL
+ <ACTOR ("AUX" END)
+   <VEL () (_END) (_END !<PAL> ?END)>   >>
\ No newline at end of file