| version 1.6, Sat Sep 13 12:05:52 1997 UTC | version 1.7, Fri Oct 24 17:13:31 1997 UTC | ||
|---|---|---|---|
|
|
||
| dup ( name>link ) @ 1 xor ( nt wid ) | dup ( name>link ) @ 1 xor ( nt wid ) | ||
| 2dup >r name>string r> check-shadow ( nt wid ) | 2dup >r name>string r> check-shadow ( nt wid ) | ||
| dup wordlist-map @ reveal-method perform | dup wordlist-map @ reveal-method perform | ||
| else | |||
| drop | |||
| then | then | ||
| then ; | then ; | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |