Return to hash.fs CVS log | Up to [gforth] / gforth |
version 1.33, 2003/03/09 15:16:50 | version 1.34, 2006/05/01 09:45:56 |
---|---|
Line 193 has? cross 0= | Line 193 has? cross 0= |
\ REPEAT drop | \ REPEAT drop |
[ has? ec [IF] ] ." Done" cr [ [THEN] ] ; | [ has? ec [IF] ] ." Done" cr [ [THEN] ] ; |
' hash-cold INIT8 chained | :noname ( -- ) |
defers 'cold | |
hash-cold | |
; is 'cold | |
: .words ( -- ) | : .words ( -- ) |
base @ >r hex HashTable Hashlen 0 | base @ >r hex HashTable Hashlen 0 |