| version 1.182, Sun Nov 13 20:54:56 2011 UTC | version 1.183, Mon Nov 14 00:15:27 2011 UTC | ||
|---|---|---|---|
|
|
||
| if | if | ||
| drop false exit \ heads are aligned | drop false exit \ heads are aligned | ||
| then | then | ||
| name>string dup $1F > if | name>string dup $20 $1 within if | ||
| 2drop false exit \ realistically the name is short | 2drop false exit \ realistically the name is short | ||
| then | then | ||
| + cfaligned @ here forthstart within ; \ and the cfa is outside | + cfaligned @ here forthstart within ; \ and the cfa is outside |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |