Artifact 7d434b81d7420c4257945916ddc18a2b6f773add:
- File fmt/hash-compat.scm — part of check-in [80c8c83034] at 2016-07-07 18:11:39 on branch trunk — initial import (user: ovenpasta@pizzahack.eu size: 178)
0000: 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 65 .(define (make-e 0010: 71 3f 2d 74 61 62 6c 65 29 20 28 6d 61 6b 65 2d q?-table) (make- 0020: 65 71 2d 68 61 73 68 74 61 62 6c 65 29 29 0a 28 eq-hashtable)).( 0030: 64 65 66 69 6e 65 20 68 61 73 68 2d 74 61 62 6c define hash-tabl 0040: 65 2d 72 65 66 2f 64 65 66 61 75 6c 74 20 68 61 e-ref/default ha 0050: 73 68 74 61 62 6c 65 2d 72 65 66 29 0a 28 64 65 shtable-ref).(de 0060: 66 69 6e 65 20 68 61 73 68 2d 74 61 62 6c 65 2d fine hash-table- 0070: 73 65 74 21 20 68 61 73 68 74 61 62 6c 65 2d 73 set! hashtable-s 0080: 65 74 21 29 0a 28 64 65 66 69 6e 65 20 68 61 73 et!).(define has 0090: 68 2d 74 61 62 6c 65 2d 77 61 6c 6b 20 68 61 73 h-table-walk has 00a0: 68 2d 74 61 62 6c 65 2d 66 6f 72 2d 65 61 63 68 h-table-for-each 00b0: 29 0a ).