ITS Muddle.

[pdp10-muddle.git] / MUDDLE / revtes.4

diff --git a/MUDDLE/revtes.4 b/MUDDLE/revtes.4
new file mode 100644 (file)
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)>   >>\f\ 3\f
\ No newline at end of file