projects
/
pdp10-muddle.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Prevent MIDAS from splitting two-word directives across blocks.
[pdp10-muddle.git]
/
MUDDLE
/
vers.2
1
2
<FLOAD "EDITOR" ">">
3
4
5
<DEFINE VERSION ()
6
<REPEAT ((OB <ERRORS>) SUB)
7
<COND (<EMPTY? .OB><RETURN DONE>)>
8
<SET SUB <1 .OB>>
9
L2 <COND (<EMPTY? .SUB><GO L1>)>
10
<PRIN1 <1 .SUB>>
11
<PRINC " VERSION ">
12
<PRIN1 ,<1 .SUB>>
13
<TERPRI>
14
<SET SUB <REST .SUB>>
15
L1 <SET OB <REST .OB>>>>
16
17
\f
\ 3
\f