projects
/
pdp10-muddle.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
2f0f2f31b0b8818aa1266ab61e6861b90d71b86d
[pdp10-muddle.git]
/
MUDDLE
/
revtes.4
1
<DEFINE REV
2
<ACTOR (EXP "AUX" FRONT BACK)
3
<WHEN (() .EXP)
4
((_FRONT !_BACK)
5
<BE <IS? (!<REV .BACK> ?FRONT) .EXP>>) >>>
6
7
8
<DEFINE PAL
9
<ACTOR ("AUX" END)
10
<VEL () (_END) (_END !<PAL> ?END)> >>
\f
\ 3
\f