| version 1.4, Tue Oct 18 15:51:18 1994 UTC | version 1.5, Tue Nov 15 15:55:36 1994 UTC | ||
|---|---|---|---|
|
|
||
| addall \ Baum aufbauen | addall \ Baum aufbauen | ||
| \ Baumsuche ist installiert. | \ Baumsuche ist installiert. | ||
| : hash-cold ( -- ) Defers 'cold | |||
| HashPointer off HashTable off HashIndex off | |||
| addall ; | |||
| ' hash-cold IS 'cold | |||
| : .words ( -- ) | : .words ( -- ) | ||
| base @ >r hex HashTable @ Hashlen 0 | base @ >r hex HashTable @ Hashlen 0 | ||
| DO cr i 2 .r ." : " dup i cells + | DO cr i 2 .r ." : " dup i cells + |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |