![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hash.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to hash.fs CVS log | Up to [gforth] / gforth |
| version 1.5, 1994/11/15 15:55:36 | version 1.6, 1994/11/24 16:55:15 |
|---|---|
| Line 93 addall \ Baum aufbauen | Line 93 addall \ Baum aufbauen |
| : hash-cold ( -- ) Defers 'cold | : hash-cold ( -- ) Defers 'cold |
| HashPointer off HashTable off HashIndex off | HashPointer off HashTable off HashIndex off |
| addall ; | voclink |
| BEGIN @ dup @ WHILE | |
| dup cell - @ >r | |
| dup 'initvoc | |
| r> over cell - ! | |
| REPEAT drop ; | |
| ' hash-cold IS 'cold | ' hash-cold IS 'cold |
| : .words ( -- ) | : .words ( -- ) |